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ABSTRACT 


This  study  examines  alternative  locations  for  the  eight 
HC-130,  long-range,  fixed-wing  aircraft  available  in  the 
U.  S.  Coast  Guard  Atlantic  Area  during  the  FY  75  -  FY  84 
period.   The  objective  was  to  achieve  the  maximum  effective- 
ness possible  at  a  reasonable  cost.   A  computer  simulation 
of  HC-130  air  operations  in  the  region  of  interest  was 
developed  to  produce  relevant  cost  and  operational  effec- 
tiveness measurements.   The  study  indicates  that  of  the 
three  potential  sites  considered- -Coast  Guard  Air  Station 
Cape  Cod,  Massachusetts,  Coast  Guard  Air  Station  Elizabeth 
City,  North  Carolina,  and  the  St.  Petersburg-Clearwater 
International  Airport,  Florida- -assignment  of  three  HC-130s 
at  CGAS  Elizabeth  City  and  five  at  St.  Petersburg-Clearwater 
is  optimal. 
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I .   INTRODUCTION 

Title  14  of  the  United  States  Code  designates  the 
United  States  Coast  Guard  as  the  government  agency  whose 
primary  responsibility  is  to  "...develop,  establish, 
maintain  and  operate ...  rescue  facilities  for  the  promotion 
of  safety  on,  under  and  over  the  high  seas  and  waters 
subject  to  the  jurisdiction  of  the  United  States...  ." 
The  Coast  Guard  is  also  tasked  with  numerous  other  duties 
which  range  in  diversity  from  military  readiness  to  oil 
pollution  control. 

To  meet  its  widely  varying  responsibilities  the  Coast 
Guard  utilizes  several  types  of  land,  sea  and  airborne 
craft.   These  craft,  and  their  operating  and  support  person- 
nel, must  be  located  strategically  to  effectively  carry 
out  their  missions  in  both  an  operationally  and  economically 
efficient  manner.   The  high  cost  of  aircraft,  relative  to 
most  land  and  sea  craft,  along  with  their  unique  rescue, 
surveillance  and  logistics  capabilities,  makes  the  strategic 
location  of  aircraft  and  their  support  facilities  and  per- 
sonnel particularly  critical. 

The  aircraft  inventory  of  the  Coast  Guard  currently 
consists  of  the  HU-16E  medium-range,  fixed-wing  amphibian, 
the  HH-52A  short-range,  amphibian  helicopter,  the  HH-3F 
medium-range,  amphibian  helicopter  and  the  HC-130  long- 
range,  fixed-wing  aircraft.   Various  combinations  of  these 


aircraft  are  assigned  at  Coast  Guard  Air  Stations 
throughout  the  United  States. 

The  coastal  areas  of  the  United  States  are  divided 
between  two  major  operational  commands.   The  Coast  Guard 
Pacific  Area  includes  the  Pacific  coast,  Alaska  and  Hawaii, 
and  the  Coast  Guard  Atlantic  Area  is  comprised  of  the 
Atlantic  coast  and  the  Gulf  of  Mexico. 

For  several  reasons  the  optimal  allocation  of  the 
long-range  HC-130  aircraft  in  the  Coast  Guard  Atlantic 
Area  is  worthy  of  special  attention.   The  Coast  Guard 
Atlantic  Area  already  has  a  significant  and  growing  require 
ment  for  long-range  search  and  rescue  (SAR) ,  surveillance, 
and  major  logistics  flights.   The  HC-130,  a  cargo/transport 
type  aircraft,  is  ideally  suited  for  all  of  these  missions. 
In  addition,  recently  allocated  funds  will  provide  for  an 
increase  in  the  number  of  HC-130s  in  the  Coast  Guard 
Atlantic  Area  from  six  to  eight.   With  this  increase  in 
resources,  the  question  of  where  to  most  optimally  assign 
the  available  HC-130  aircraft  within  this  region  is  being 
addressed  by  the  service. 

A  large  number  of  variable  factors  such  as  type  of 
missions,  mission  occurrence  times,  location  of  aircraft, 
and  availability  of  aircraft  are  significant  in  the  opera- 
tion of  a  small  fleet  of  aircraft  which  must  satisfy  a 
multi-mission  responsibility  over  a  wide  geographic  area. 
A  computer  simulation  model  of  aircraft  operations  and 


maintenance  in  the  Coast  Guard  Atlantic  Area  with  provisions 
for  various  aircraft,  allocations  and  response  capabilities 
was  developed  to  consider  these  variables  in  the  subject 
study.   The  simulation  model  was  exercised  extensively, 
the  results  evaluated,  and  observations  made  concerning 
the  model  and  optimal  location  of  HC-130  aircraft  within 
the  Coast  Guard  Atlantic  Area. 


II.   NATURE  OF  THE  PROBLEM 

In  fiscal  year  1959  the  United  States  Coast  Guard 
began  utilization  of  HC-130  long-range,  fixed-wing  aircraft 
in  the  prosecution  of  its  multiple  roles  and  missions  in 
the  Coast  Guard  Atlantic  Area  (COMLANTAREA) .   Since  that 
time  these  aircraft,  along  with  the  HU-16E,  a  medium- 
range,  fixed-wing  aircraft,  have  provided  all  of  the 
service's  fixed-wing  flight  capability  for  both  search  and 
rescue  (SAR)  and  other  mission  requirements.   As  indicated 
in  Ref.  1,  additional  appropriations  will  increase  the 
number  of  HC-130s  in  COMLANTAREA  from  the  current  six  to 
eight  by  FY  1975,  while  the  replacement  of  all  HU-16E 
aircraft  by  small,  medium-range,  fixed-wing  aircraft  is 
scheduled  for  completion  by  FY  78.   Through  FY  73  all 
COMLANTAREA  HC-130  aircraft  were  centrally  located  in 
relation  to  the  command's  maritime  areas  of  responsibility. 
Because  of  the  major  alterations  in  resource  types,  numbers 
and  capabilities,  and  the  corresponding  shifts  in  resource 
work  load  requirements  both  by  type  and  location,  the  loca- 
tion of  the  limited  number  of  HC-130  aircraft  available 
must  be  carefully  studied  and  plans  must  be  formulated  to 
optimize  their  operational  capabilities  subject  to  fiscal 
efficiency  considerations. 

In  addressing  the  question   of  optimal  location  of  the 
long-range,  fixed-wing  aircraft  within  COMLANTAREA,  an 


understanding  of  the  factors  which  affect  the  utilization 
of  these  aircraft  such  as  command  and  control,  current 
locations  of  other  aircraft,  individual  aircraft  type 
characteristics  and  mission  requirements  is  essential. 

A.   GEOGRAPHICAL  AREA  AND  OPERATIONAL  CONTROL 

COMLANTAREA  is  a  purely  operational  command 
headquartered  at  Governor's  Island,  New  York,  which  has 
primary  responsibility  for  the  Atlantic  and  Gulf  of 
Mexico  coastal  states,  plus  New  Mexico  and  Vermont  and  the 
waters  adjacent  thereto.   The  operational  area  is  divided 
into  the  First,  Third,  Fifth,  Seventh  and  Eighth  Coast 
Guard  Districts  which  are  both  operational  and  administra- 
tive commands.   The  COMLANTAREA  Coast  Guard  Air  Stations 
are  Coast  Guard  Air  Station  (CGAS)  Cape  Cod,  CGAS  Brooklyn, 
CGAS  Cape  May,  CGAS  Elizabeth  City,  CGAS  Savannah,  CGAS 
Miami,  CGAS  Puerto  Rico,  CGAS  St.  Petersburg,  CGAS  Mobile, 
CGAS  New  Orleans,  CGAS  Houston  and  CGAS  Corpus  Chris ti. 

Primary  control  of  an  aircraft  is  vested  in  the  district 
commander  within  whose  district  the  aircraft  is  assigned. 
Missions  occurring  within  the  district  boundaries,  or 
generated  by  individual  district  commanders,  are  carried 
out  under  that  district  commander's  control  by  the  aircraft 
assigned  within  the  district,  if  the  capability  exists. 
When  missions  cross  district  boundaries . and/or  involve 
units  from  more  than  one  district,  COMLANTAREA  controls 
the  mission  and  the  units  involved.   This  alternative 
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control  is  important.   In  the  past,  with  all  the  HC-130s 
located  in  the  Fifth  Coast  Guard  District,  COMLANTAREA 
controlled  their  operational  utilization  to  a  significant 
degree . 

The  primary  SAR  region  of  responsibility  for  COMLANTAREA 
is  the  Atlantic  Ocean  off  the  coast  of  the  United  States 
and  the  Gulf  of  Mexico.   It  also  conducts  many  SAR  missions 
in  the  Caribbean  Sea  and  the  North  Atlantic  Ocean  off  the 
Canadian  coast. 

B.   AIRCRAFT  CHARACTERISTICS 

1.  HU-16E  "Grumman  Albatross" 

The  Grumman  HU-16E  twin  reciprocating-engine, 
amphibious,  fixed-wing  aircraft,  is  capable  of  performing 
medium  logistic  missions,  but  is  used  primarily  as  a 
surveillance  and  search  vehicle  with  rescue  equipment  (rafts, 
dewatering  pumps,  general  emergency  supplies)  and  night 
illumination  delivery  capability.   Its  normal  cruising 
speed  is  140  knots.   The  HU-16E  effective  offshore  search 
radius  with  two  and  one-half  hours  of  search  time  on-scene 
is  500  nautical  miles.   Although  an  amphibian,  use  of  the 
HU-16E  for  water  surface  recovery  was  officially  terminated 
in  FY  73. 

2.  HH-52A  "Sikorsky  Sea-Guard" 

The  Sikorsky  HH-52A  single- turbine ,  amphibious 
helicopter  is  primarily  a  short-range  SAR  vehicle  with  a 
limited  rescue  equipment  delivery  capability.   Also,  it  is 
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used  for  small,  light-weight,  logistics  missions  and  various 
types  of  "local"  surveillance  flights.   The  HH-52A  has  a 
normal  cruising  speed  of  90  knots  with  a  maximum  offshore 
range  of  150  nautical  miles  allowing  a  loiter  time  of  20 
minutes  on-scene.   Because  they  have  a  single  engine, 
Coast  Guard  air  operations  doctrine  requires  air  cover  for 
HH-52As  when  operating  off  the  coast. 

3.  HH-3F  "Sikorsky  Pelican" 

The  Sikorsky  HH-3F  twin  turbine,  amphibious  helicopter 
is  a  medium-range  SAR  vehicle  with  a  full  rescue  equipment 
and  night  illumination  delivery  capability.   It  is  also 
capable  of  performing  logistics  missions  and  medium-range 
surveillance  flights.   Its  normal  cruise  speed  is  125 
knots.   The  HH-3F  can  either  proceed  300  nautical  miles 
offshore  allowing  a  loiter  time  of  20  minutes  on-scene  or 
200  nautical  miles  allowing  a  loiter  time  of  two  and  one- 
half  hours  for  search. 

4.  HC-130  "Lockheed  Hercules" 

The  Lockheed  HC-130,  a  four-engine,  turbo-prop, 
long-range,  fixed-wing  aircraft,  is  capable  of  performing 
major  personnel  and  cargo  logistics  missions  as  well  as 
extended  surveillance  and  search  missions.   It  also  has 
the  capability  of  air  dropping  rescue  equipment  and  pro- 
viding night  illumination.   At  the  time  of  this  study, 
both  "B"  and  "E"  models  of  the  HC-130  were  in  the 
COMLANTAREA  inventory.   The  HC-130  has  a  normal  cruising 
speed  of  300  knots  at  altitude.   The  "B"  model  is  capable 
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of  proceeding  twelve  hundred  miles  offshore  at  high 
altitude,  letting  down  and  searching  for  two  and  one-half 
hours  on  two  engines,  and  returning  to  base  at  high  alti- 
tude.  The  "E"  model  HC-130  has  an  approximately  thirty 
per  cent  increased  range/endurance  capability. 

5 .   Planned  Medium-Range,  Fixed-Wing  Replacement  Aircraft 
A  replacement  medium-range  search/surveillance  (MRS) 
aircraft  is  scheduled  for  implementation  into  the  Coast 
Guard  aviation  system  beginning  in  FY  74.   The  type  air- 
craft selected  is  anticipated  to  be  a 

". . . limited  mission  aircraft  to  perform  MEP  (marine 
environmental  protection),  short-range  ELT  (enforce- 
ment of  laws  and  treaties)  and  other  missions  within 
its  capability."1 

These  aircraft  are  primarily  intended  to  accomplish  the 

non-SAR  missions  previously  performed  by  HU-16E  aircraft. 

At  the  time  of  this  study,  two  small  turbojet  aircraft 

with  speeds  of  approximately  400  knots  and  ranges  of  1200 

to  1800  nautical  miles  were  being  evaluated  for  this  role. 


^oast  Guard  Aircraft  Characteristics  Board  Report 
dated  31  May  1972. 
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C.   AIRCRAFT  ALLOCATIONS 

1.  COMLANTAREA  Aircraft  Assignments  in  FY  7  3 

UNIT  C-130  HU-16E    HH-3F   HH-52A   MRS^ 

Portland  -  3 

Cape  Cod  -  3       3       4- 

Brooklyn  -  -33- 

Cape  May  -  3 

Elizabeth  City  6  3       -       3 

Savannah  -  3 

Miami  -  5       -       3       - 

Puerto  Rico  -  3 

St.  Petersburg  -  4 

Mobile  -  3 

New  Orleans  -  4 

Houston  -  3 

Corpus  Christi  -  4       -       2 

2.  COMLANTAREA  Planned  Aircraft  Assignments  in  FY  78 

UNIT  C-130  HU-16E    HH-3F   HH-52A   MRS 

Portland  -  3 

Cape  Cod  5  3       -       3 

Brooklyn  -  7 

Cape  May  -  4 

Elizabeth  City  -  4       -       3 

Savannah  -  3 

Cocoa  Beach  3  2 

Miami  -  5       6 
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UNIT  C-I30    HU-16E    HH-3F    HH-52A   MRS 


Puerto  Rico 

- 

- 

2 

- 

2 

St.  Petersburg 

- 

- 

5 

- 

- 

Mobile 

- 

- 

- 

- 

2 

New  Orleans 

- 

- 

4 

- 

- 

Houston 

- 

- 

- 

4 

- 

Corpus  Chris ti 

- 

- 

~ 

3 

3 

D.   MISSION  REQUIREMENTS  AND  PRIORITIES  FOR  COMLANTAREA 
HC-130  AIRCRAFT 

As  a  result  of  the  wide  range  of  programs  for  which  the 
Coast  Guard  is  responsible,  many  extremely  varied  types  of 
missions  must  be  performed.   A  general  breakdown  into 
mission  classes  is  often  made  using  SAR  and  non-SAR  classi- 
fications.  SAR  missions  normally  have  the  highest  priority. 
However,  in  COMLANTAREA  only  approximately  thirty- two  per 
cent  of  the  total  HC-130  flight  hours  and  forty-one  per  cent 
of  the  program  HC-130  flight  hours  are  devoted  to  SAR 
missions.   This  is  not  to  minimize  the  importance  of  the  SAR 
responsibilities  for  the  COMLANTAREA  HC-130s.   By  their  very- 
nature  SAR  missions  are  normally  emergencies  which  require 
quick  and  efficient  action.   However,  to  study  the  efficient 
utilization  of  HC-130s  in  COMLANTAREA,  the  non-SAR  require- 
ments as  well  as  the  more  critical  SAR  requirements  for 
flight  hours  must  be  identified  and  given  due  consideration. 
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1.   SAR  Missions 

There  are  many  different  types  of  SAR  missions 

which  include,  but  are  not  limited  to: 

Routine  searches  for  overdue  boats. 

Removal  of  personnel  from  vessels  or  water. 

Searching  for  survivors  of  disasters  at  sea. 

Airborne  delivery  of  rafts,  survival  equipment  and 
dewatering  pumps. 

Night  illumination  by  flares. 

Intercept  of  aircraft  in  distress. 

Navigational  assistance. 

Surveillance  of  distressed  craft. 
Depending  on  the  type  of  case,  one  or  more  aircraft  may  be 
required.   As  noted  in  paragraph  B  above,  many  of  the  air- 
craft types  have  overlapping  operational  capabilities.   The 
HC-130s,  because  of  their  size,  endurance  and  speed,  are 
particularly  well  suited  for  long  searches,  long-term 
surveillance  of  distressed  craft,  navigational  assistance, 
night  illumination,  and  distressed  aircraft  intercepts. 
The  HC-130s  can  perform  all  missions  except  the  retrieval 
of  survivors  from  the  water  or  surface  craft.   Also, 
because  of  its  crew  size  and  extensive  communications 
capability,  the  HC-130  is  a  very  effective  on-scene 
commander  platform  for  search  efforts  involving  many  units. 

The  assignment  of  priorities  to  SAR  missions  is  a 
matter  of  command  decision.  When  sufficient  resources  of 
the  required  type  are  available  priorities  need  not  be 
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designated.   However,  when  this  is  not  the  case,  aircraft 
substitution  decisions  must  be  made,  and  aircraft  must 
be  allocated  among  missions.   Every  situation  is  different 
and  must  be  treated  individually.   Aircraft  allocation 
depends  on  the  decision-maker's  opinion  of  the  relative 
urgency  of  each  case.   Even  in  times  of  SAR  mission  satura- 
tion every  effort  is  made  to  give  each  case  at  least 
partial  coverage.   When  mission  requirements  exceed  the 
Coast  Guard's  resources,  assistance  is  normally  requested, 
and  received,  from  the  U.  S.  Air  Force  Air  Rescue  and 
Recovery  Service  as  well  as  other  military  organizations. 
2 .   Non-SAR  Missions 

Without  delving  into  specific  program  definitions, 
non-SAR  aircraft  missions  may  be  primarily  characterized  as 
transportation  of  personnel  and  cargo,  training  and 
surveillance  flights.   Due  to  the  location  of  U.  S.  Coast 
Guard  Headquarters,  the  U.  S.  Coast  Guard  Academy  and  the 
U.  S.  Coast  Guard  Aircraft  Repair  and  Supply  Center  within 
COMLANTAREA  and  the  aviation  requirements  of  the  Inter- 
national Ice  Patrol  the  non-SAR  mission  load  for  COMLANTAREA 
aircraft  is  heavy.   The  HC-130s,  with  their  range,  size  and 
speed,  are  utilized  to  satisfy  a  large  portion  of  the  non- 
SAR  work  load  in  COMLANTAREA. 

Non-SAR  missions  are  generated  by  U.  S.  Coast 
Guard  Headquarters,  COMLANTAREA  and  the  individual  district 
commanders.   In  general,  non-SAR  missions  are  lower  in 
priority  classification  than  all  SAR  missions.   The  only 
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exceptions  are  the  International  Ice  Patrol  flights 
during  the  ice  season  and  a  very  limited  number  of 
extremely  high  priority  logistics  flights.   The  exception 
for  the  International  Ice  Patrol  flights  is  made  because 
these  flights  very  closely  approach  full  SAR  mission 
status  in  their  importance  to  the  preservation  of  life  and 
property.   The  ice  season  varies  in  different  years  but 
usually  runs  from  March  through  July.   During  this  period 
approximately  four  flights  per  week  are  required  with  on- 
scene  times  of  four  to  five  hours  over  the  general  area 
of  the  Grand  Banks  of  Newfoundland.   Since  the  decommis- 
sioning of  CGAS  Argentia  in  FY  67  one  HC-130  aircraft  with 
double  crew  has  been  operated  on  a  temporary  additional 
duty  status  from  airfields  in  eastern  Canada  during  the  ice 
patrol  season.   The  crews  are  rotated  on  a  two-week  cycle 
and  the  aircraft  are  rotated  as  required  for  periodic 
maintenance.   In  addition  to  the  flights  during  the  ice 
season,  several  flights  along  the  coast  of  Greenland  are 
made  throughout  the  year  to  predict  the  ice  flow. 

Flights  for  the  U.  S.  Coast  Guard  Academy  and  the 
Electronics  Engineering  Branch  are  assigned  by  U.  S.  Coast 
Guard  Headquarters.   A  heavy  requirement  exists  for  personnel 
transportation  both  for  cadets  and  the  U.  S.  Coast  Guard 
Band  to  and  from  the  academy  which  is  located  at  New  London, 
Connecticut.   While  particularly  heavy  during  the  summer 
months,  the  requirement  exists  throughout  the  year.   Most 
of  the  flights  are  limited  to  the  eastern  half  of  the 
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United  States.   The  primary  flight  requirements  for  the 
U.  S.  Coast  Guard  Electronics  Branch  with  its  field  center 
at  Wildwood,  New  Jersey,  involve  the  transportation  of 
personnel  and  equipment  for  monitoring  Long  Range  Aid  to 
Navigation  (LORAN)  stations  throughout  the  world.   These 
flights  are  normally  designated  for  the  "E"  model  HC-130 
aircraft  because  of  headquarters  funding  and  the  aircraft's 
special  configuration.   These  missions  last  from  three 
days  to  as  long  as  two  months.   Coast  Guard  Headquarters 
also  directs  the  movement  of  supplies  from  the  Aircraft 
Repair  and  Supply  Center  in  Elizabeth  City,  North  Carolina; 
personnel  and  equipment  transportation  from  Washington, 
D.  C. ,  for  oceanographic  research  work;  as  well  as  general 
logistics  flights  from  Washington,  D.  C,  and  other  points 
throughout  the  world. 

In  addition  to  International  Ice  Patrol  flights, 
COMLANTAREA  directs  flights  for  movement  of  operational 
cargo  such  as  equipment  for  air  drop  to  vessels  underway 
and  oil  dispersement  liquids  and  apparatus,  as  well  as 
surveillance  flights.   Surveillance  flights  are  conducted 
for  a  variety  of  reasons  including  the  enforcement  of 
fishing  treaties  and  detection  of  oil  pollution.   The  non- 
SAR  flight  requirements  generated  by  the  individual  district 
commanders  consist  primarily  of  small-scale  personnel  and 
equipment  transportation,  as  well  as  surveillance  missions 
and  helicopter  cover  flights  for  HH-52As  operating  offshore. 
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The  assignment  of  priorities  for  non-SAR  missions 
is  not  so  critical  as  that  for  SAR  missions  because  the 
preservation  of  human  life  normally  is  not  involved. 
Within  the  non-SAP.  mission  classification,  the  highest 
priorities  involve  the  International  Ice  Patrol  flights, 
critical  operational  cargo  movement,  and  personnel  trans- 
portation.  Unlike  SAR  missions,  many  non-SAR  missions 
can  conveniently  be  delayed  or,  if  necessary,  performed 
by  other  means . 

E.   NON- OPERATIONAL  FACTORS  AFFECTING  AIRCRAFT  AVAILABILITY 

There  are  basically  three  factors  which  affect  the 
availability  of  aircraft  which  are  not  already  operational- 
ly deployed.   These  factors  are  maintenance,  manning  person- 
nel, and  weather. 

1 .   Maintenance 

Mechanical  difficulties  and  preventative  maintenance 
criteria  are  the  primary  limitation  on  aircraft  availability 
Aircraft  mechanical  discrepancies  normally  are  found  during 
preflight  inspection,  in  flight,  and  during  post-flight 
inspection.   Depending  on  the  seriousness  of  the  mechanical 
discrepancies  which  occur  in  flight,  the  mission  may  be 
either  completed  or  aborted.   HC-130  discrepancies  may 
require  as  little  as  fifteen  minutes,  or  as  many  as  three 
days,  to  correct.   Of  course,  the  delay  may  be  longer  if 
parts  are  not  readily  available,  or  an  "out  of  house" 
inspection  team's  assistance  is  required. 
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Primary  preventive  maintenance  is  currently  conducted 
during  maintenance  check  periods.   Aircraft  checks  for  HC-130 
aircraft  are  mandatory  after  every  sixty-three  calendar 
days  or  two  hundred  flight  hours,  whichever  occurs  first 
[Ref.  1] .   HC-130  aircraft  checks  require  an  average  of 
seven  calendar  days.   Extensions  on  day/flight  hour  limita- 
tions between  aircraft  checks  are  extremely  limited,  thus 
creating  another  factor  that  must  be  considered  in  assigning 
aircraft  to  missions.   Due  to  limitations  on  space  and  man- 
power, having  more  than  one  HC-130  requiring  a  maintenance 
check  at  a  particular  time  must  be  avoided.   The  evaluation 
of  a  computerized  maintenance  program  for  HC-130s  was 
initiated  in  FY  73  [Ref.  .1] .   If  found  feasible,  and  imple- 
mented, such  a  program  would  greatly  reduce  or  possibly 
negate  the  large  down-time  required  for  each  aircraft  check. 
2.   Manning  Personnel 

The  normal  operational  crew  for  an  HC-130  varies 
from  five  to  nine  depending  on  the  type  mission  being  con- 
ducted.  Although  the  Coast  Guard  places  flight  hour  and 
associated  rest  criteria  limitations  on  aircrew  members, 
as  delineated  in  Ref.  3,  the  availability  of  qualified 
aircrew  personnel  is  seldom  a  limiting  factor  for  aircraft 
availability  at  home  stations.   During  "non-working"  hours 
ready  crews  are  kept  aboard  air  stations  for  immediate  SAR 
mission  response  and  additional  crews  can  normally  be 
recalled  without  undue  delay. 
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3.   Weather 

The  weather  factor/effect  generally  depends  on 
time  of  year  and  locale.   When  weather  at  fields  where 
aircraft  are  located  is  below  instrument  flight  rule  minimums 
aircraft  will  not  depart  for  other  than  the  most  critically 
urgent  SAR  cases.   While  sometimes  a  factor  restricting 
the  use  of  aircraft  on-scene  for  SAR  or  other  operational 
missions  in  COMLANTAREA,  weather  only  infrequently  affects 
the  availability  of  aircraft  for  such  missions. 

F.   MEASURES  OF  EFFECTIVENESS 

Because  of  the  multi-type  mission  requirements  of  the 
COMLANTAREA  HC-130s,  the  limited  number  of  these  aircraft 
available,  and  the  restricted  operational  budget  of  the 
Coast  Guard,  it  is  important  that  meaningful  measures  of 
operational  effectiveness,  in  both  of  the  major  mission 
classifications  and  overall  economical  effectiveness, 
be  selected  and  considered  as  part  of  a  total  decision 
assistance  package. 

The  determination  of  measures  of  operational  effective- 
ness is  particularly  difficult  in  the  case  of  SAR  missions 
in  view  of  the  often  intangible  results  achieved.   To  use 
the  number  of  human  lives  assisted  or  saved  as  a  measure 
of  SAR  operational  effectiveness  would  be  as  gross  an  over- 
simplification as  would  the  use  of  unanswered  SAR  cases. 
In  one  situation  a  search  may  be  conducted  for  many  days 
by  several  different  units  without  a  successful  conclusion. 
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In  another  case  a  rescue  vehicle  may  be  directed  to  the 
scene  of  concern  and  a  rescue  effected  within  minutes. 
While  the  latter  case  gives  a  more  graphic  display  of 
effectiveness,  it  cannot  be  assumed  that  the  performance 
of  units  in  the  former  situation  was  operationally  ineffec- 
tive.  Meaningful  measures  of  SAR  effectiveness  might 
include  speed  of  response,  ability  to  respond  in  the  quantity 
and  duration  desireJ,  or  number  of  SAR  flights  completed. 

Measures  of  effectiveness  for  non-SAR  missions  are 
more  readily  available  in  view  of  the  generally  "go/no-go" 
nature  of  the  missions.   Possible  measures  of  effectiveness 
might  include  number  of  non-SAR  flights  completed,  number 
of  non-SAR  missions  not  performed,  or  failures  to  respond 
in  the  quantity  or  for  the  duration  required. 

It  is  important  to  realize  that  both  SAR  and  non-SAR 
effectiveness  will  be  affected  by  command  priority  decisions 
within,  and  between,  these  flight  mission  classifications. 

Variation  in  the  cost  of  HC-130  operations  is  primarily 
affected  by  non-productive  flight  hours  (extra  flight  hours 
required  for  a  mission  caused  by  the  responding  aircraft 
not  being  at  the  air  station  closest  to  the  mission  loca- 
tion), number  of  support  facilities  maintained,  and  require- 
ments for  deployment  of  aircraft  and  crews.   These  factors 
provide  a  basis  for  developing  economic  measures  of 
effectiveness . 
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III.   METHODOLOGY 

To  facilitate  the  evaluation  of  the  effectiveness  and 
associated  costs  of  different  distributions  of  the  available 
HC-130  aircraft  in  COMLANTAREA  a  simulation  model  of  Coast 
Guard  aircraft  operations  in  the  Atlantic  Ocean  and  Gulf  of 
Mexico  was  required.   Although  a  search  and  rescue  simula- 
tion model  has  been  developed  for  the  United  States  Coast 
Guard  [Ref.  4],  it  does  not  address  the  service's  non-SAR 
mission  responsibilities.   In  addition,  it  models  neither 
the  area  nor  the  specific  resources  of  concern  in  this  study 
to  the  degree  of  significance  required.   Therefore,  a  new 
simulation  of  the  required  scope  and  detail  was  developed. 
The  simulation  developed  specifically  for  this  study  is  a 
fixed,  one-hour  time  step,  stochastic  model  programmed  in 
FORTRAN  IV  for  the  IBM- 360  computer.   The  program  requires 
approximately  170K  of  core  storage  and  a  running  time  in 
the  vicinity  of  twenty  seconds  per  replication  year.   The 
simulation  model  produces  means  and  variances  of  selected 
measures  of  both  cost  and  operational  effectiveness. 

A.   SIMULATION  MODEL 

The  simulation  model  consists  of  a  main  program  and  five 
subroutines.   The  model  stochastically  develops  SAR  cases 
and  non-SAR  missions  with  exponential  interarrival  times. 
The  cases  and  missions  are  then  handled  with  available 
HC-130s  or,  if  possible,  with  helicopters  when  HC-150s  are 
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not  available,  according  to  a  predefined  set  of  decision 
rules.   At  the  conclusion  of  each  case  and  mission  the 
number  of  mission  flight  hours  and/or  case  on-scene  hours 
that  could  not  be  satisfied  with  HC-130s  or  helicopters 
are  recorded.   When  an  HC-130  must  undertake  a  case  or  mis- 
sion from  an  air  station  which  is  not  the  station  closest 
to  the  case  or  mission  the  extra  flight  hours  required  are 
tallied.   When  HC-13Cs  are  required  to  remain  overnight 
(RON)  at  air  stations  other  than  the  one  to  which  they  are 
assigned  because  of  maintenance  difficulties  or  crew  flight 
time  restrictions,  the  RONs  are  tallied. 

The  simulation  model  is  designed  to  allow  selection  of 
any  of  three  sites  on  the  east  coast  of  the  United  States 
as  prospective  locations  for  as  many  as  fifteen  HC-130s 
(total) .   Provision  has  been  made  for  as  many  as  25  heli- 
copter stations  on  the  eastern  and  gulf  coasts.   The  operator 
can  specify  more  than  250  variable  parameters  in  the  program 
ranging  from  weather  factors  to  SAR  case  and  mission 
priority  distributions.   A  listing  of  the  variable  input 
parameters  may  be  found  in  Appendix  B.   Seasonal  variables 
such  as  weather,  case  occurrence  rates  and  location  distri- 
butions may  be  entered  by  months  and  the  program  automatical- 
ly alters  these  parameters  each  simulation  month.   Some  of 
the  other  operational  refinements  that  the  simulation  model 
possesses  include: 

(1)  Inflight  abort  of  aircraft. 

(2)  Inflight  shifting  of  aircraft  between  SAR  cases. 
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(3)  Substitution  of  helicopters  for  HC-130s. 

(4)  "Closing"  of  air  stations  due  to  weather. 

(5)  Maintenance  downing  of  aircraft  upon  landing  and 
at  start-up. 

(6)  Shifting  availability  rates  for  helicopters  as 
determined  by  number  assigned  to  station  and 
number  on  HC-130  cases. 

(7)  Holding  of  non-SAR  missions  for  variable  periods 
if  HC-130s  are  not  available. 

(8)  Built-in  decision  rules  for  allocation  of  HC-130s 
among  cases  and  missions  when  insufficient  resources 
exist. 

(9)  Continuous  on-scene  coverage  capability  on  SAR 
cases  for  up  to  24  hours. 

(10)  Assignment  of  up  to  four  HC-130s  to  a  particular 
SAR  case. 

(11)  Shifting  of  aircraft  between  air  stations. 

A  detailed  discussion  of  the  simulation  model's  execution 
procedures  and  decision  rules  is  contained  in  Appendix  D. 
1 .   Assumptions 

Most  of  the  design  assumptions  made  in  the 
computer  simulation  were  included  for  simplicity.   Other 
assumptions,  implicit  in  the  operation  of  the  program,  were 
necessitated  by  a  lack  of  factual  data.   The  model  assump- 
tions include: 

a.   SAR  Case  and  Non-SAR  Mission  Occurrence  Times 
Both  sets  of  occurrence  times  are  assumed  to 
be  characterized  by  Poisson  distributions.   Three  separate 
rates  are  used  for  each  month:   two  for  SAR  and  one  for 
non-SAR  missions.   The  SAR  mission  rates  are  for  peak  rate 
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and  non-peak  rate  days  in  the  week.   Occurrence  rates  are 
assumed  to  be  unaffected  by  time  of  day. 

b.  SAR  and  Non-SAR  Mission  Departure  Times 
Because  of  daylight  conditions,  it  is  assumed 

that  aircraft  will  not  depart  on  non-continuous  SAR  cases 
prior  to  0600  or  after  1600  daily.   Normal  mission  departure 
times  are  assumed  to  be  at  0800  and  1200  daily.   Special  mis- 
sions and  continuous  SAR  case  departures  are  made  regardless 
of  time  of  day. 

c.  HC-130  Maintenance  Discrepancy  Times 

It  is  assumed  that  discrepancies  on  HC-130s  are 
noted  in  flight,  after  landing  and  on  start-up. 

d.  Area  Design 

The  east  coast  of  the  United  States  is  represented 
by  a  straight  line  running  approximately  through  Otis  Air 
Force  Base,  Massachusetts,  and  Daytona  Beach,  Florida.   The 
Gulf  of  Mexico  is  then  modeled  as  a  rectangle  extending  to 
the  west  and  displaced  slightly  to  the  south.   The  displace- 
ment to  the  south  is  done  to  keep  flight  distances  as 
nearly  in  proportion  as  possible.   The  southern  limit  of 
the  simulated  area  is  represented  by  a  line  perpendicular 
to  an  extension  of  the  simulated  Atlantic  coast  line  and 
passing  20  nautical  miles  southwest  of  Merida  on  the  Yucatan 
Peninsula.   Air  stations  and  mission  pick  up  points  within 
100  nautical  miles  of  the  simulated  coast  lines  are  pro- 
jected perpendicular  to  the  simulated  coast  lines.   See 
Figure  1. 
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e.  SAR  Case  Positions 

A  discrete  distribution  of  cases  between  the 
First,  Third  and  Fifth,  and  Seventh  and  Eighth  Coast  Guard 
Districts  is  used.   For  all  cases  in  the  Atlantic  Ocean, 
the  distances  offshore  are  assumed  to  be  exponentially  dis 
tributed  from  10  to  1,000  nautical  miles  with  the  mean 
distance  being  specified  by  the  operator.   In  the  Gulf  of 
Mexico  all  cases  are  assumed  to  be  uniformly  distributed 
throughout  the  area.   In  the  Atlantic  Ocean  all  cases 
except  those  in  the  First  Coast  Guard  District  north  of 
Maine  are  assumed  to  be  uniformly  distributed  along  the 
coast  within  the  respective  district  groupings.   Cases 
in  the  First  Coast  Guard  District  north  of  Maine  are 
assumed  to  be  exponentially  distributed  along  the  coast 
from  Maine  north. 

f.  International  Ice  Patrol 

It  is  assumed  that  one  HC-130  from  the  most 
northern  air  station  having  HC-130s  assigned  will  be 
deployed  for  the  period  March  through  July  and  will  fly 
500  hours  on  ice  patrol. 

g.  Inflight  Abort 

For  an  HC-130  aborting  a  flight  it  is  assumed 
the  aircraft  will  fly  directly  to  the  closest  HC-130  air 
station  at  200  knots.   Aborts  are  only  considered  for  SAR 
case  flights  and  flights  transferring  aircraft  between 
HC-130  stations. 
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h.   Operating  Locations 

It  is  assumed  that  HC-130s  will  only  operate 
out  of,  and  RON  at,  designated  HC- 130  air  stations. 

i.   Short-Range  Recovery  Capability 

In  the  event  of  HC-130  non-availability  it  is 
assumed  that  HH-3F  helicopters  are  preferable  to  HH-52A 
helicopters  for  substitution  if  the  case  location  and  type 
are  amenable  to  helicopter  substitution.   The  simulation 
does  not  provide  for  MRS  aircraft  as  they  are  considered  to 
be  designated  for  specialized  non-SAR  missions. 

j.   Flight  Distances 

All  distances  to  SAR  cases  are  considered  to 
be  straight  line  distances.   Distances  between  air  stations 
and  other  locations  ashore  are  computed  as  straight  line 
distances  and  then  corrected  for  increases  caused  by  flying 
airway  routes. 

k.   Personnel  Availability 

It  is  assumed  that  personnel  availability  is 
not  a  factor  in  determining  aircraft  availability  for  air- 
craft at  their  home  air  stations.   For  aircraft  away  from 
their  home  stations,  flight  crew  rest  criteria  are  considered 
as  a  limiting  factor  in  the  return  of  such  aircraft  to  their 
home  stations. 

1.   Allocation  Restrictions 

In  selecting  possible  allocation  alternatives 
between  three  proposed  locations  it  is  assumed  that  no  less 
than  three  HC- 130s  will  be  assigned  to  one  location. 
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in.   Number  of  Aircraft  Assigned  to  SAR  Cases 

It  is  assumed  that  no  more  than  four  HC-130s 
will  be  assigned  to  any  one  SAR  case. 

n.   Non-SAR  Mission  Origin  Locations 

The  primary  origin  locations  for  HC-130  mission 
requirements  are  considered  to  be  at  the  three  proposed 
HC-130  air  stations,  the  U.  S.  Coast  Guard  Academy, 
Washington,  D.  C,  and  the  five  district  offices  in 
COMLANTAREA. 

o.   Training  Flights 

While  training  flights  consume  a  large  portion 
of  available  flight  time  they  are  not  considered  to  be  a 
limiting  criterion  in  fulfillment  of  SAR  and  non-SAR  mis- 
sion requirements.   Therefore,  training  flights  are  not 
provided  for  within  the  simulation  model. 

p.   Aircraft  Accountability 

HC-130s  on  SAR  cases  are  launched  and  returned 
for  each  individual  sortie.   HC-130s  on  non-SAR  missions 
are  launched  for  the  mission  and  are  assumed  to  be  unavail- 
able for  other  missions  or  cases  until  termination  of  the 
mission  to  which  assigned. 

q.   HC-130  Maintenance 

The  minimum  down  time  due  to  any  one  mechanical 
discrepancy  considered  by  the  simulation  is  two  hours  and 
the  maximum  is  72  hours.   It  has  been  assumed  that  the  com- 
puterized check  procedure  will  be  in  effect,  thus  alleviating 
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large  down  times  for  check  maintenance.   All  IIC- 130s 
returning  from  flights  which  do  not  have  mechanical 
discrepancies  are  considered  unavailable  for  one  hour  after 
landing.   This  provides  for  refueling,  etc.   These  "refuel- 
ing periods"  are  not  tallied  as  down  times. 

r.   HC-130  Flight.  Endurance 

It  is  assumed  that  the  maximum  flight 
endurance  for  HC-130s,  allowing  adequate  fuel  reserve,  is 
ten  hours. 

s.   Inflight  Aircraft  Location 

If  an  aircraft  is  to  be  diverted  or  must  abort 
a  flight  it  is  assumed  to  be  half  way  between  its  initial 
or  interim  point  of  departure  and  interim  or  final  destina- 
tion or  at  the  SAR  case  datum  point  depending  on  its  employ- 
ment status. 

2 .   Verification 

The  simulation  model  was  constructed  by  sectioning 
the  main  program  and  adding  subroutines  as  new  sections  of 
the  main  program  which  required  the  use  of  a  particular 
subroutine  were  developed.   After  each  milestone  in  pro- 
gramming was  reached,  such  as  case  occurrence  time 
generation,  mission  characteristics  generation  in  subroutine 
MICA,  addition  of  subroutine  PLANE,  etc.,  verification  runs 
were  made.   The  purpose  of  the  verification  runs  was  to 
ensure  that  the  newly  added  portion  of  the  program  was 
performing  as  the  programmer  intended  and  also  to  be  sure 
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that  the  operation  of  the  previously  programmed  portion 
of  the  model  had  not  been  altered  by  the  new  addition. 
The  model  was  debugged  and  positive  verification  com- 
pleted after  each  milestone  before  proceeding  further. 
3.   Validation 

Validation  of  the  model  required  specific  real 
world  data  with  which  to  compare  the"  results  obtained 
from  the  model.   Although  data  are  available  on  HC-130 
operations  in  COMLANTAREA,  they  are  not  in  the  form 
required  by  the  model.   The  only  data  readily  available 
are  the  number  of  hours  the  COMLANTAREA  HC-130s  have  flown. 
These  hours  are  broken  down  by  programs  but  breakdowns 
within  the  program  areas  are  not  available.   General  SAR 
data  breakdowns  are  supplied  to  Coast  Guard  Headquarters 
but  the  capability  to  readily  aggregate  this  information 
in  the  specific  detail  required  by  the  subject  simulation 
does  not,  as  yet,  exist. 

In  order  to  approach  validation  of  the  simulation 
model  the  program  flight  data  for  COMLANTAREA  HC-130s  in 
FYs  70-72  were  gathered.   The  data  were  then  organized  into 
the  form  required  by  the  model  by  subjective  analysis 
based  on  experience.   The  other  variable  parameters  required 
by  the  program  were  selected  in  a  like  manner.   The  simula- 
tion was  then  run  with  six  HC-130s  located  at  CGAS  Elizabeth 
City,  North  Carolina,  which  was  the  assignment  situation 
when  the  general  data  were  gathered.   Using  a  confidence 
level  of  95?0  and  uncertainty  limit  of  5%  the  simulation 
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indicated  that  6.44%  of  the  SAR  case  on- scene  hours  and 
5.29%  of  the  mission  hours  which  were  actually  covered 
could  not  be  covered  under  the  simulated  conditions. 
Realizing  that  a  computer  simulation  can  only  approach 
the  real  world  and  can  never  be  programmed  to  institute 
the  vast  capability  of  the  human  mind  to  adapt  to  constant- 
ly shifting  decision  situations,  the  results  of  this  valida 
tion  run  are  considered  to  indicate  that  the  model,  within 
limits,  favorably  reflects  the  system  as  it  actually 
operates . 

Further  satisfaction  in  the  validity  of  the  model 
is  gained  when  evaluating  the  results  of  the  sensitivity 
analysis . 

4 .   Sensitivity  Analysis 

After  the  base  parameters  had  been  determined  for 
the  first  year  to  be  investigated- -  FY  75--a  sensitivity 
analysis  of  the  simulation  was  conducted  using  an  assign- 
ment distribution  of  three  HC-130s  at  the  central  air 
station  and  five  at  the  southern  air  station.   Individual 
parameters  were  changed,  usually  by  10%,  with  the  other 
parameters  fixed  at  their  base  values.   In  the  case  of 
discrete  cumulative  distribution  functions  (CDFs) ,  the 
mean  values  of  the  CDFs  were  shifted  10%.   Relative  changes 
in  the  mean  statistics  were  calculated  as  percentage 
increases  or  decreases  from  the  base  mean  statistics. 
When  the  total  SAR  on-scene  hours  and/or  mission  flight 
hours  requested  were  changed  due  to  a  change  in  a  base 
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parameter,  the  relative  changes  in  the  mean  statistics 
were  calculated  as  changes  in  percentages  using  base  mean 
statistics  and  base  total  hours  requested  versus  the  newly- 
generated  mean  statistics  and  total  hours  requested. 

The  results  of  the  sensitivity  analysis  are  tabulated 
in  Appendix  C.   Few  of  the  parameter  changes  effected  major 
changes  in  the  measures  of  effectiveness  or  cost  and  all  of 
the  changes  corresponded  with  what  could  be  expected  in 
the  actual  operational  system.   The  most  significant  changes 
resulted  when  the  mean  priorities  of  the  SAR  cases  and  non- 
SAR  missions  were  altered.   Of  particular  note  was  the 
relative  stability  of  the  SAR  coverage  as  compared  to  the 
mission  coverage.   This  would  indicate  that  the  simulation, 
with  the  base  parameters  as  specified,  is  biased  toward 
the  SAR  work  load.   This  bias  is  also  indicated  in  the 
changes  produced  by  increasing  the  SAR  cases  and  non-SAR 
missions  per  year  with  the  greater  losses  being  found  in 
mission  flight  hours.   Significant  decreases  in  both  mission 
and  SAR  coverage  were  noted  with  a  shift  of  mean  SAR  case 
location  10%  to  the  north  which  is  understandable  in 
light  of  the  aircraft  assignment  distribution  used  for  the 
analysis.   Also  worthy  of  note  is  the  relative  insignifi- 
cance of  changes  resulting  from  altering  the  helicopter 
availability  parameters. 
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B.  MEASURES  OF  EFFECTIVENESS 

Because  of  the  multi-purpose  role  filled  by  HC-130s,  a 
single  measure  of  operational  effectiveness  such  as  total 
number  of  hours  flown  is  considered  inappropriate.   With 
the  general  split  in  the  HC-130  responsibilities  being  made 
between  SAR  and  non-SAR  missions,  a  measure  of  operational 
effectiveness  for  each  of  these  two  major  employment  classi 
fications  is  considered  necessary.   By  selecting  a  measure 
of  effectiveness  for  each  of  the  two  general  employment 
classifications  the  manager/decision-maker  is  presented 
with  a  more  detailed  picture  and  is  provided  with  the 
opportunity  to  individually  weigh  the  importance  of  each 
in  his  operational  utility  function. 

The  measures  of  operation  effectiveness  selected  in 
this  study  are  the  number  of  SAR  on- scene  hours  requested 
that  cannot  be  satisfied  and  the  number  of  non-SAR  mission 
flight  hours  requested  that  cannot  be  flown.   Several 
alternative  measures  of  effectiveness  were  evaluated  but, 
because  of  the  general  characteristics  of  the  HC-130, 
these  measures  were  considered  to  be  the  most  representa- 
tive performance  level  indicators  of  HC-130  operational 
requirements . 

C.  RELEVANT  COST  FACTORS 

In  evaluating  the  costs  corresponding  to  the  different 
potential  assignment  distributions  of  the  HC-130s  in 
COMLANTAREA,  the  relevant  costs,  those  costs  that  will 
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vary  with  the  different  assignment  distributions,  must  be 
identified.   With  the  acquisition  of  the  aircraft  already 
determined  and  thus  the  requirement  for  flight  crews  fixed, 
many  of  the  overall  system  costs  could  be  disregarded  as 
independent  of  the  assignment  decision  to  be  made. 

The  relevant  costs,  depending  on  the  assignment 
distribution  being  considered,  fall  into  three  broad 
classifications:   base  procurement,  facility  construction 
and  improvement,  and  operating  costs.   Base  procurement 
cost  is  relevant  in  the  situation  where  HC-130s  are  to  be 
assigned  to  a  location  where  a  military  air  field  has  not 
existed  previously.   Facility  construction  and  improve- 
ment costs  are  involved  whenever,  due  to  the  addition  of 
HC-130s  or  because  of  continued  assignment  of  HC-130s, 
new  hangars  and  other  facilities  must  be  built  or  renovated, 

The  broad  classification  of  operating  costs  can  be 
split  into  direct  and  indirect  operating  costs.   Direct 
operating  costs  include  those  costs  resulting  from  the 
actual  operation  of  the  aircraft.   In  evaluating  the 
differences  between  location  distributions  the  relevant 
costs  are  the  fuel  and  maintenance  costs  of  operational  and 
extra  flight  hours  flown  and  the  per  diem  costs  associated 
with  flight  crews  that  must  remain  away  from  their  home 
units.   The  simulation  model  gathers  both  the  extra  flight 
hours  and  RON  statistics  which  result  from  the  various 
assignment  distributions  of  aircraft  during  each  simulation 
run. 
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The  potentially  relevant  indirect  operating  costs 
include : 

(1)  Additional  base  operating  expenses  resulting  from 
having  HC-130s  at  two  different  air  stations. 

(2)  Cost  of  maintaining  separate  inventories  of  repair 
parts  and  maintenance  equipment,  and 

(3)  Command  and  control  costs  associated  with  adding 
another  air  station. 
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I V .   DATA  DEVELOPMENT  AND  ANALYSIS 

Following  the  selection  of  relevant  cost  factors  and 
meaningful  measures  of  effectiveness  it  was  necessary  to 
exercise  the  simulation  model  to  obtain  the  data  pertinent 
to  the  study. 

A.   BASE  CASE  SPECIFICATION 

The  first  requirement,  in  order  to  exercise  the  model, 
was  to  specify  the  basic  inputs  for  the  first  year  to  be 
considered,  FY  75.   As  pointed  out  in  Chapter  III,  a  data 
base  in  the  form  and  detail  required  by  the^model  is  not 
available.   In  order  to  develop  the  values  of  the  basic 
inputs  and  requirements  for  the  first  year,  data  in  varying 
forms  were  gathered  and  transformed- -  through  subjective 
analysis  based  on  experience  with  the  system- -into  input 
values  for  the  specification  variables  of  the  model.   The 
basic  variable  values  may  be  found  in  Appendix  B. 

As  noted  in  the  sensitivity  analysis  discussion,  the 
two  variables  which  displayed  the  greatest  effect  on  the 
model  results  were  the  general  SAR  case  location  distribu- 
tion and  the  SAR  case  and  non-SAR  mission  loads.   To 
specify  the  general  SAR  case  location  distribution,  FY  71 
data  on  case  distances  offshore  (by  districts)  was  obtained 
and  interfaced  with  district  aircraft  trackline  miles  found 
in  Ref.  5.   These  factors  were  considered  indicative  of 
general  HC-130  SAR  case  location  distributions  because  of 
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the  aircraft's  primary  SAR  utilization  as  a  long-range 
search  vehicle.   The  results  obtained  indicated  fifteen 
per  cent  of  the  HC-130  cases  occur  in  the  First  Coast 
Guard  District,  twenty- five  per  cent  in  the  Third  and 
Fifth  Coast  Guard  Districts  and  the  remaining  sixty  per 
cent  in  the  Seventh  and  Eighth  Coast  Guard  Districts. 

The  determination  of  projected  FY  75  HC-130  requested 
SAR  case  on-scene  and  non-SAR  mission  flight  hours  was, 
of  necessity,  highly  subjective.   This  was  caused  by  the 
fact  that  the  Coast  Guard  has  never  maintained  data  on 
the  requests  for  HC-130  services  which  have  not  been  met 
and  also  because  the  model  differentiates  in  its  treat- 
ment of  domestic  and  deployment  SAR  requirements.   Domestic 
SAR  requirements  are  those  SAR  cases  which  are  met  on  a 
continuing  basis  from  the  proposed  HC-130  air  stations  and 
are  the  SAR  cases  modeled  in  the  simulation.   Deployment 
SAR  requirements  are  those  cases  which  are  outside  of  the 
normal  COMLANTAREA  operating  areas.   These  cases  are 
modeled  as  priority  one  !,non-SAR"  missions  in  the  simulation 
Another  factor  contributing  to  this  subjectivity  in  case 
and  mission  load  selections  was  the  assumption  that  the 
medium- range  surveillance  (MRS)  aircraft  would  not  perform 
SAR  flights. 

A  basis  for  the  subjective  determination  of  FY  75  SAR 
and  mission  loads  was  the  forecast  requirements  found  in 
Ref.  1.   One-half  of  the  HC-130  Marine  Environmental 
Protection  (MEP)  and  Enforcement,  of  Laws  and  Treaties  (ELT) 
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flight  hour  requirements  [Ref.  1]  were  transferred  to  the 
MRS  aircraft  and,  in  return,  one-half  of  the  MRS  projected 
SAR  requirements  were  transferred  to  the  HC-130s.   One 
quarter  of  the  projected  SAR  hours  forecast  for  HC-130s 
were  transferred  to  the  HC-130  non-SAR  mission  load  as 
deployment  SAR  cases.   Finally,  ten  per  cent  of  the  total 
HC-130  SAR  hours  remaining  were  cut  as  enroute  time  because 
the  model  only  considers  on- scene  time.   Ten  per  cent  is 
felt  to  be  sufficiently  low  so  that  the  remaining  enroute 
hours  coupled  with  the  added  MRS  SAR  requirements  give  a 
better  indication  of  the  total  needs  for  HC-130  services. 
A  less  satisfactory  alternative  would  be  the  normally 
programmed  number  of  hours  the  aircraft  are  expected  to  be 
able  to  accomplish.   This  requirement  for  desired  versus 
programmed  capability  was  also  met  for  "non-SAR"  mission 
flight  hours  by  transferring  only  half  of  the  HC-130  MEP/ELT 
flight  hour  requirements  to  the  MRS  aircraft. 

Helicopter  assignments  and  availabilities  were  based 
on  the  projected  assignment  status  in  Ref.  1  and  the 
readiness  data  found  in  Ref.  6.   Because  the  model  does 
not  provide  for  aircraft  maintenance  down- time  other  than 
during  start-up  and  landing,  these  figures,  both  for 
probability  of  down  status  and  the  duration  of  down- time, 
appear  high.   However,  the  selected  parameter  values 
produce  acceptable  overall  down- time  during  the  model's 
performance,  an  effective  range  of  25  to  30  per  cent  of  the 
potential  HC-130  flight  hours  available. 
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B.   DATA  PRODUCTION  PROCEDURES 

Data  were  gathered  for  the  projected  remaining  operational 
lifetime  of  the  HC-130s,  FY  75  through  FY  84.   The  forecast 
annual  growth  rate  for  maritime  activity  in  the  area  of 
concern  is  4.4%  [Ref.  7],   Reference  1  forecasts  an 
unchanging  requirement  for  HC-130  SAR  hours  throughout  the 
ten-year  period  which  would  indicate  that  this  forecast 
requirement  figure  is  considered  a  program  limit  rather 
than  a  true  "requirement"  or  need  for  HC-130  SAR  flight 
hours.   Although  the  forecast  HC-130  mission  flight  hour 
requirements  in  Ref.  1  fluctuate,  they  do  not  show  any 
significant  growth  rate.   This  view  is  not  consistent  with 
the  thrust  of  this  study:   To  consider  the  effect  of 
assignment  location  on  the  ability  to  meet  all  requirements 
made  for  HC-130  services.   Therefore,  without  other  guide- 
lines available,  a  4.4%  growth  rate  per  annum  was  used  to 
forecast  yearly  SAR  on-scene  and  non-SAR  mission  flight 
hour  loads  projected  from  the  FY  75  base  loads.   The  SAR 
on-scene  and  mission  flight  hour  requirements  specified 
for  each  year  may  be  found  in  Appendix  A. 

The  three  assignment  locations  evaluated  in  this  study 
were  the  primary  sites  now  under  consideration  by  the  Coast 
Guard,  CGAS  Cape  Cod,  CGAS  Elizabeth  City  and  the  St. 
Petersburg-Clearwater  International  Airport.   The  number  of 
replications  required  for  each  assignment  distribution  in 
each  year  was  calculated  for  a  confidence  level  of  0.95 
and  an  uncertainty  limit  of  0.05.   However,  because  of 
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computer  time  and  scheduling  limitations,  each  assignment 
distribution  was  exercised  for  a  fixed  100  replication  years. 
Following  the  completion  of  runs  for  all  twelve  assignment 
distributions  for  a  particular  year,  the  SAR  case  and  non- 
SAR  mission  loads  were  increased  by  the  4.4%  per  annum  growth 
factor  and  the  random  number  generator  seeds  set  at  the  ter- 
mination values  from  the  previous  year's  runs.   Runs  for  the 
next  year  were  then  made.   A  summary  of  the  resulting  data 
is  contained  in  Appendix  A. 

C.   DATA  ANALYSIS  AND  RESULTS 

Determination  of  the  number  of  replication  years 
required  to  meet  the  specified  confidence  level  and  uncer- 
tainty limit  (0.95,  0.05)  was  based  on  the  assumption  that 
the  output  data  are  normally  distributed,  a  direct  applica- 
tion of  the  Central  Limit  Theorem.   The  computational  form 
used  in  the  program  is 


N  = 


X: 


-  1 


(X) 


where  N  =  Number  of  Replication  Years  required. 

C  =  Normal  critical  value  for  confidence  level. 

E  =  Uncertainty  limit. 

x  =  Observation  (year  mean) . 

With  the  N  value  calculated  for  specified  E  and  C  values, 
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value  can  be  determined.   Therefore,  although  a  set  100 
replication  years  were  run  for  each  assignment  distribution 
regardless  of  the  N  value  calculated,  the  actual  uncertainty 
limit  achieved  in  the  100  replication  years  can  be  deter- 
mined by 


E  = 


\l 


C2Z 

N 


Following  the  completion  of  all  computer  runs,  the  maximum 
uncertainty  limits  of  SAR  on-scene  hours  not  satisfied, 
mission  flight  hours  not  performed,  extra  hours  flown  and 
total  RONs  were  determined  for  each  aircraft  distribution. 
These  values  range  from  2.56  to  8.77  per  cent  and  may  be 
found  in  Appendix  A.   Statistical  significance  of  the  results 
could  then  be  identified  by  upper/lower  bound  comparisons  of 
the  data. 

1 .   Operational  Effectiveness  Results 

The  following  aircraft  distributions  are  ranked 
in  the  order  of  effectiveness  from  high  to  low  for  the  ten 
years  studied,  FY  75  to  FY  84.   The  vertical  lines  to  the 
right  bound  statistically  insignificant  differences  in 
results  at  the  951  confidence  level. 
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MISSION  EFFECTIVENESS 
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A  graph  of  these  results  is  contained  in  Appendix  A, 
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>  2.   Cost  Results 

The  costs  developed  in  this  study  are  in  undiscounted 
1972  dollars.  This  is  not  considered  to  seriously  affect  the 
viability  of  the  cost  portion  of  the  study  because 

(a)  The  significance  in  the  costs  lies  not  in  individual 
totals  but  in  the  relative  differences  of  costs 
between  the  various  aircraft  location  distributions t 

(b)  All  of  the  one-time  costs  will  be  incurred  in  the 
first  few  years  of  the  program  under  each 
alternative , 

(c)  The  only  indirect  operating  cost  of  a  recurring 
nature  will  be  that  due  to  changes  in  general 
service  rating  complements  at  CGAS  Cape  Cod  and 
St.  Petersburg-Clearwater,  if  required,  and, 

(d)  The  recurring  direct  operating  costs  are  only  a 
function  of  the  capability  of  the  HC-130s  to  meet 
their  operational  requirements  as  determined  by 
their  location  and  are  relatively  independent  of 
decisions  made  after  the  initial  assignment  dis- 
tribution is  determined. 

When  addressing  the  question  of  costs  associated 
with  the  different  aircraft  assignment  distributions  the 
statistical  significance  of  differences  in  the  direct 
operational  cost  factors  is  not  of  key  importance.  What 
is  important  is  the  total  relevant  cost  differentiations 
between  the  various  assignment  distributions. 

a.   Procurement  and  Indirect  Operating  Costs 

The  relevant  costs,  other  than  direct  operating 
costs  of  the  aircraft,  include  the  following  one-time  cost 
estimations  made  by  the  Coast  Guard  in  its  program  budget- 
ing projections : 
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CGAS  Cape  Cod 

New  Facility  Construction  $2,300,000 

CGAS  Elizabeth  City 

New  Facility  Construction  $2,100,000 

St.  Petersburg-Clearwater 

Property  and  Facility  Acquisition   $   750,000 
Facility  Renovation  1,030,000 

New  Facility  Construction  800,000 


$2,580,000 

If  two  locations  are  to  be  used  an  estimated  one-time 
expenditure  of  $760,000  will  be  required  to  set  up  a  second 
spare  parts  inventory  and  procure  the  necessary  maintenance 
equipment.   In  the  event  a  location  other  than,  or  in 
addition  to,  CGAS  Elizabeth  City  is  to  be  utilized,  a 
complement  of  twenty- five  general  service  ratings  will 
have  to  be  added  to  the  subject  station's  personnel  comple- 
ment.  This  will  be  a  recurring  cost  over  the  period  of 
concern.   Computed  at  the  Coast  Guard  cost  planning  factor 
of  $12,000  per  general  service  rating  per  year,  the  ten- 
year  cost  for  twenty-five  general  service  ratings  will  be 
$3,000,000. 

Command  and  control  costs  other  than  the  general 
service  ratings  are  not  considered  to  be  relevant  in  the 
study.   This  is  because  command  and  control  personnel 
presently  exist  at  CGAS  Cape  Cod  and  CGAS  Elizabeth  City. 
In  the  case  of  St.  Petersburg-Clearwater,  if  it  is  selected 
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as  an  IIC-130  station  site,  the  Coast  Guard  plans  to  close 
their  present  CGAS  St.  Petersburg  and  transfer  its  command 
and  control  personnel  from  that  station  to  the  new  site, 
b.   Direct  Operating  Costs 

The  relevant  direct  operating  costs  for  this 
study  are  considered  to  be  the  fuel  and  maintenance  costs 
of  the  SAR  on-scene,  mission,  and  extra  flight  hours  flown 
as  well  as  the  RON  per  diem  costs.   The  1972  fuel  and 
maintenance  costs  per  HC-130  flight  hour  are  $477.   In 
order  to  arrive  at  a  per  diem  cost  for  RONs ,  the  size  of 
the  flight  crew  must  be  specified  and  a  mean  situation  as 
to  availability  of  meals  and  quarters  assumed.   The  size  of 
a  SAR  flight  crew  is  assumed  to  be  nine:   three  officers 
and  six  enlisted  men.   Assuming  that  the  following  distri- 
bution of  meal  and  quarters  availability  could  be  expected, 

Available  Proportion 


Meals  and  Quarters 

.  5 

Quarters  only 

.2 

Meals  only 

.1 

Neither 

.2 

costs  of  $12.34  per  officer  and  $9.93  per  enlisted  man  were 
obtained  for  a  total  cost  of  $96.60  per  RON  per  flight 
crew. 

c.   Total  and  Differential  Assignment  Oriented  Costs 
The  following  aircraft  distributions  are  ranked 
in  the  order  of  total  ten-year  costs  relevant  to  variation 
in  assignment  locations  from  low  to  high: 
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.ircra 

ft 

Dist 

ribution 

Costs1" 

CCOD 

ECITY 

SP-CS 

Non-Ui 

rect 

Direct 

Differential1^ 

0 

8 

0 

$2.1 

M 

$30.6  M 

$0.0  M 

0 

0 

8 

5.6 

30.  7 

3.5 

8 

0 

0 

5.3 

31.6 

4.2 

0 

4 

4 

8.4 

31.4 

7.2 

0 

5 

3 

8.4 

31.5 

7.3 

0 

3 

5 

5 

8.4 

31.5 

7.3 

3 

0 

8.2 

31.9 

7.4 

4 

4 

0 

8.  2 

32.  2 

7.7 

5 

3 

0 

8.  2 

32.3 

7.8 

3 

0 

5 

11.6 

31.7 

10.6 

4 

0 

4 

11.6 

31.9 

10.8 

5 

0 

3 

11.6 

32.0 

10.9 

+ 
Costs  arc  in  1972  millions  of  dollars. 

Differential  costs  are  based  on  minimum  cost  for  assignment 
of  eight  HC-130s  at  CGAS  Elizabeth  City. 

A  graph  of  these  costs  with  operational  effectiveness  results 
is  contained  in  Appendix  A. 
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V.   SUMMARY  0 B S E  RVAT I ON S 

The  subject  cost-effectiveness  study  is  based  on  a 
computer  simulation  model.   Thus,  its  validity  is  dependent 
on  that  of  the  model  and  the  method  by  which  it  was  employed 
in  the  study.   Simulation  models  can  only  model  significant 
portions  of  the  complex  system  they  are  intended  to  portray. 
The  model  developed  for  this  study  is  no  different;  its 
simplifying  assumptions,  both  explicit  and  implicit,  limit 
its  true  portrayal  of  the  complex  HC-150  air  operations  in 
COMLANTAREA.   For  this  reason,  absolute  cost  and  effective- 
ness figures  produced  by  the  model  must  be  used  with  caution. 
However,  because  observations  of  the  capabilities  of 
varying  aircraft  assignment  distributions  to  satisfy 
identical  flight  requirements  were  made  under  identical 
decision  criteria,  the  relative  capabilities  of  the  distri- 
butions to  satisfy  these  requirements  and  their  differential 
costs  are  meaningful  and  do,  in  fact,  indicate  the  relative 
merits  of  each  distribution. 

In  exercising  the  simulation  model  several  characteristics 
of  HC-130  flight  operations  in  COMLANTAREA  came  to  light: 
some  expected,  some  unexpected.   It  is  important  to  note,  as 
found  during  the  sensitivity  analysis  of  the  simulation 
model,  that  the  capability  of  a  specific  distribution  of 
aircraft  to  meet  the  flight  requirements  imposed  on  the 
system  is  significantly  affected  by  a  shifting  of  the  SAR 
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case  location  density.   This  is  not  a  surprising  result 
but  it  does  indicate  that  if  a  shift  in  SAR  case  activity 
occurs,  a  redistribution  of  aircraft  may  be  necessary  to 
maintain  an  optimal  level  of  performance. 

Also  of  interest  is  the  fact  that  with  the  majority 
of  the  SAR  workload  occurring  in  the  Seventh  and  Eighth  Coast 
Guard  Districts,  placing  all  of  the  HC-130s  at  the  southern 
location  (St.  Petersburg-Clearwater)  does  not  result  in 
the  most  effective  SAR  performance.   This  is  caused  by 
the  interaction  in  the  system  between  SAR  and  non-SAR 
mission  requirements  and  the  fact  that  the  major  portion  of 
non-SAR  mission  requirements  exist  in  the  north/central 
region  of  COMLANTAREA.   Thus,  the  reduction  in  SAR  per- 
formance capability  is  a  result  of  aircraft  non-availability 
in  the  southern  area  caused  by  HC-130s  being  sent  from 
that  area  to  perform  SAR  and  non-SAR  missions  in  the  north/ 
central  region.   A  similar  cause  and  effect  relationship 
is  found  for  non-SAR  mission  effectiveness  when  all  of  the 
HC-130s  are  assigned  to  the  northern  location- -CGAS  Cape 
Cod. 

Observation  of  the  SAR  on-scene  flight  hour  completion 

percentages  emphasizes  the  fact  that  demands  on  the  system 

are  significantly  beyond  its  operational  capability.   This 

leads  to  the  conclusion  that  if  the  Coast  Guard  is  to  more 

adequately  respond  to  requirements  for  fixed-wing  aircraft 

SAR  flight  hours,  it  must  either  increase  its  number  of 

fixed-wing  aircraft  or  utilize  the  proposed  MRS  aircraft 

for  SAR. 
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The  total  cost  spread  between  the  aircraft  assignment 
distributions  is  10.9  million  1972  dollars  for  the  ten-year 
period  of  the  study,  FY  7  5  through  FY  84.   The  maximum 
direct  operating  cost  difference  found  for  the  differing 
assignment  distributions  is  1.7  million  1972  dollars. 
This  indicates  the  most  significant  costs  associated  with 
the  system  will  be  the  initial  outlay  costs  for  facility 
procurement,  construction  and  improvement,  and  the  recur- 
ring command  and  control  costs. 

As  might  be  expected,  changing  from  a  one-air  station 
HC-130  operation  at  CGAS  Elizabeth  City  to  either  a  single- 
station  operation  at  another  air  station  or  to  a  two- 
station  HC-130  operation  will  be  costly.   The  minimum 
ten-year  differential  cost  for  any  change  in  the  location 
of  COMLANTAREA  HC-130s  will  be  $3.5M  and  the  maximum  could 
be  $10. 9M.   It  is  particularly  significant  to  note  that 
a  major  portion  of  these  differential  costs  must  be  incurred 
during  the  first  few  years  of  operation  for  facility  pro- 
curement, construction  and  improvement  and  for  spare  parts 
and  maintenance  equipment  procurement.   In  the  case  of 
shifting  to  a  two-station  operation  these  early  program 
expenditures  will  run  between  $4.2M  and  $7.2M  depending  on 
the  locations  selected. 

The  results  of  this  study  provide  the  decision-maker 
with  the  ability  to  identify  incremental  changes  in  both 
SAR  and  non-SAR  effectiveness  associated  with  incremental 
changes  in  cost  caused  by  changing  from  a  single  HC-130 
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station  operation  based  at  CGAS  Elizabeth  City  as 
follows : 

INCREMENTAL  PERCENTAGE  CHANGES  IN  EFFECTIVENESS 

Aircraft  Distribution  Changes 

CCOD   ECITY   SP-CS      SAR     Non-SAR  Costs*   Total/$M** 


4 

4 

0 

+0. 22% 

+9.711 

$  7  .  6M 

0.76%/$M 

4 

0 

4 

7.97 

7.01 

10.8 

1.38 

0 

4 

4 

10.08 

5.24 

7.2 

2.12 

0 

0 

8 

7.62 

0)2.40 

3.5 

1.49 

0 

3 
0 

5 

10.96 

5.50 

7.3 

2.25 

3 

5 

9.  20 

6  73 

10.7 

1.49 

3 

5 

0 

0.4  3 

8.96 

7.4 

1.  27 

8 

0 

0 

(-)7.32 

1.76 

4.2  (■ 

■)1.32 

5 

3 

0 

(-)0.94 

9.44 

7.8 

1.09 

5 

0 

3 

5.72 

6.86 

10.9 

1.15 

0 

5 

3 

8.90 

5.20 

7.  2 

1.96 

*Costs  in  1972  millions  of  dollars. 

**Total  effectiveness  change  per  million  dollar  cost- -SAR 
and  non-SAR  effectiveness  weighted  equally. 

The  final  decision,  of  course,  rests  with  the  decision- 
maker.  The  information  provided  by  this  study  is  only  one 
of  the  inputs  that  must  be  considered  in  the  overall  decision 
process.   In  conjunction  with  this  information  the  decision- 
maker must  not  only  weigh  the  relative  importance  of  each  of 
the  main  operational  functions  performed  by  the  COMLANTAREA 
HC-130s  but  he  must  also  take  into  account  externalities 
such  as  politics,  possible  base  closures  by  the  Department 
of  Defense--CGAS  Cape  Cod  is  located  at  Otis  Air  Force  Base, 
Massachusetts- -and  forecasts  of  future  funding  capabilities. 

Based  solely  on  the  cost  and  effectiveness  factors 
considered  by  the  study  and  with  equal  importance  being 
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given  to  the  performance  of  SAR  and  non-SAR  missions,  it 
is  concluded  that  the  assignment  of  three  HC - 1 30  aircraft 
at  CGAS  Elizabeth  City  and  five  at  the  St.  Petersburg- 
Clearwater  International  Airport,  reflecting  a  total 
incremental  effectiveness  increase  of  2.25%  per  million 
dollars  invested,  would  be  the  optimal  cost-effective 
assignment  distribution  of  eight  HC-130s  in  the  U.  S. 
Coast  Guard  Atlantic  Area. 


54 


APPENDIX  A 


FISCAL  YEAR  FLIGHT  HOUR  REQUESTS 


Fiscal 
Yea:*- 

Flight  Hours  Requested 

Mission 

On-Scene 

75 

3050 

3410 

76 

3160 

3560 

77 

3290 

3740 

78 

3400 

3890 

79 

3530 

4060 

80 

3650 

4240 

81 

3780 

4420 

82 

3960 

4620 

83 

4100 

4820 

84 

4260 

5050 

Total 

36,180 

41,810 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

320 

1190 

787 

390 

76 

351 

1230 

821 

403 

77 

395 

1330 

851 

430 

78 

414 

1380 

881 

442 

79 

465 

1490 

893 

455 

80 

509 

1550 

928 

472 

81 

56  5 

1690 

951 

493 

82 

606 

1780 

989 

509 

83 

661 

1880 

1010 

525 

84 

748 

2050 

1040 

546 

Total 

5,_0  34 

15,570 

9,151 

4,665 

Maximum 
Uncertainty 
Limit  (%) 

8.8 

3.1 

4.0 

3.3 

At  95%  Confidence  Level 


56 


SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

387 

994 

622 

225 

76 

425 

1030 

667 

236 

77 

468 

1150 

685 

250 

78 

492 

1170 

724 

263 

79 

535 

1300 

737 

276 

80 

577 

1360 

778 

290 

81 

640 

1480 

816 

298 

82 

688 

1560 

854 

308 

83 

762 

1680 

858 

322 

84 

832 

1820 

873 

333 

Total 

5,806 

13,544 

7,614 

2,801 

Maximum 
Uncertainty 
Limit  (%) 

6.7 

3.2 

4.7 

3.5 

'At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

438 

932 

542 

236 

76 

460 

1000 

588 

254 

77 

519 

1090 

614 

264 

78 

547 

1130 

625 

273 

79 

565 

1230 

644 

286 

80 

636 

1310 

647 

300 

81 

705 

1410 

704 

309 

82 

7  28 

1510 

747 

321 

83 

816  ' 

1630 

740 

334 

84 

895 

1760 

782 

348 

Total 

6,509 

13,002 

6,633 

2,925 

Maximum 
Uncertainty 
Limit  (%) 

6.  7 

3.8 

6.8 

2.9 

At  95%  Confidence  Level 


58 


SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

635 

1010 

671 

218 

76 

666 

1080 

709 

2  34 

77 

715 

1160 

738 

234 

78 

762 

1200 

732 

250 

79 

780 

1300 

762 

2  59 

80 

850 

1360 

801 

268 

81 

921 

1480 

840 

278 

82 

972 

1570 

830 

289 

83 

10  50 

1670 

888 

301 

84 

1130 

1810 

901 

307 

Total 

8,481 

13,640 

7,872 

2,638 

Maximum  * 
Uncertainty 
Limit  (%) 

6.4 

3.5 

5.7 

3.9 

At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


0** 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONS 

75 

435 

925 

543 

216 

76 

466 

9  78 

574 

230 

77 

508 

1070 

590 

240 

78 

528 

1110 

630 

250 

79 

578 

1210 

651 

259 

80 

630 

1290 

656 

274 

81 

680 

1390 

689 

279 

82 

715 

1480 

732 

294 

83 

808 

1590 

752 

309 

84 

883 

1720 

780 

319 

Total 

6,231 

12,763 

6,597 

2,670 

Maximum 
Uncertainty 
Limit  (%) 

6.8 

3.6 

5.3 

3.3 

At  95%  Confidence  Level 
** Optimal  cost-effectiveness  distribution  of  aircraft. 
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SIMUL/iTION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

400 

962 

575 

204 

76 

430 

1020 

625 

217 

77 

481 

1100 

641 

229 

78 

504 

1140 

689 

245 

79 

538 

1260 

696 

254 

80 

593 

1310 

755 

267 

81 

655 

1440 

742 

278 

82 

691 

1540 

778 

285 

83 

750 

1640 

792 

295 

84 

84  5 

1800 

828 

510 

Total 

5,885 

15,212 

7,097 

2,584 

Maximum 
Uncertainty 
Limit  (%) 

7.0 

5.9 

6.0 

5.9 

'At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

344 

1180 

755 

400 

76 

365 

1230 

785 

410 

77 

418 

1320 

813 

438 

78 

436 

1380 

844 

448 

79 

485 

1480 

858 

466 

80 

543 

1540 

875 

482 

81 

590 

1680 

919 

499 

82 

625 

1770 

948 

515 

83 

681 

1880 

980 

535 

84 

765 

2040 

999 

553 

Total 

5,252 

15,500 

8,776 

4,746 

Maximum 
Uncertainty 
Limit  (%) 

7.2 

3.6 

4.1 

3.  2 

At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONS 

75 

535 

1370 

1080 

437 

76 

57  0 

1420 

1090 

455 

77 

627 

1530 

1130 

483 

78 

63  5 

1580 

1190 

495 

79 

683 

1690 

1220 

520 

80 

742 

1760 

1230 

535 

81 

778 

1890 

1250 

552 

82 

843 

2000 

1290 

565 

83 

914 

2090 

1300 

584 

84 

967 

2220 

1330 

601 

Total 

7,294 

17,550 

12,110 

5,227 

Maximum 
Uncertainty 
Limit  (%) 

5.9 

2.9 

4.7 

3.7 

"At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 

RONs 

75 

325 

1210 

851 

397 

76 

365 

1260 

892 

403 

77 

405 

1350 

901 

434 

78 

423 

1420 

936 

448 

79 

466 

1520 

978 

465 

80 

527 

1590 

994 

482 

81 

570 

1730 

1000 

50  0 

82 

613 

1810 

1050 

515 

83 

667 

1910 

1100 

5  24 

84 

751 

2090 

1110 

55  4 

Total 

5,112 

15,890 

9,812 

4,722 

Maximum 
Uncertainty 
Limit  (%) 

7.8 

3.3 

4.9 

3.5 

At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONS 

75 

396 

1030 

720 

255 

76 

434 

1100 

740 

270 

77 

461 

1190 

78  4 

285 

78 

498 

1230 

792 

295 

79 

543 

1360 

828 

316 

80 

576 

1410 

869 

329 

81 

640 

1530 

875 

339 

82 

696 

1630 

926 

350 

83 

758 

1750 

930 

362 

84 

843 

1900 

973 

381 

Total 

5,845 

14,130 

8,437 

3,182 

Maximum 
Uncertainty 
Limit  (%) 

6.8 

3.2 

4.9 

3.2 

At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

445 

963 

574 

272 

76 

467 

1030 

610 

284 

77 

509 

1120 

639 

298 

78 

547 

1160 

648 

307 

79 

589 

1260 

669 

321 

80 

643 

1340 

720 

337 

81 

695 

1460 

725 

346 

82 

732 

1550 

748 

363 

83 

803 

1650 

782 

378 

84 

888 

1780 

8  26 

396 

Total 

6,318 

13,313 

6,941 

3,302 

Maximum 
Uncertainty 
Limit  (%) 

6.7 

3.8 

7.7 

3.0 

At  95%  Confidence  Level 
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SIMULATION  MODEL  OUTPUT  DATA 


AIRCRAFT  DISTRIBUTION: 
CGAS  Cape  Cod 
CGAS  Elizabeth  City 
St.  Petersburg  -  Clearwater 


Fiscal 
Year 

Mission 
Fit.  Hrs. 
Lost 

On-Scene 
Fit.  Hrs. 
Lost 

Extra 
Fit.  Hrs. 

Total 
RONs 

75 

569 

1210 

747 

443 

76 

609 

1250 

7  51 

455 

77 

6  50 

1350 

801 

4S2 

78 

68  6 

1400 

813 

496 

79 

7  53 

1490 

835 

510 

80 

786 

1560 

857 

532 

81 

8  34 

1700 

891 

547 

82 

89  6 

1770 

922 

567 

83 

958 

1890 

914 

585 

84 

1050 

2020 

98  5 

608 

Total 

7,791 

15,640 

8,516 

5,225 

Maximum 
Uncertainty 
Limit  (%) 

5.  7 

3.3 

4.7 

2.6 

'At  95%  Confidence  Level 
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Differential  Costs 
In  Millions  of  Dollars 
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APPENDIX  B 


LISTING  CF  REQUIRED  INPUTS 
FOR 
PROGRAM  VARIABLE   PARAMETERS 


LISTING  IS  BY  DATA  CARD  CPDER 

ALL  REAL  AND  INTEGER  INPUTS  ARE  RIGHT  ACJLSTED 

TO  COLUMNS  10,20,. .. ,7C, 80  DEPENDING  CN  NUMBER  CF  CARD 

PARAMETER  ENTRIES  UNLESS  OTHERWISE  NCTED 

THE  STANDARD  FORTRAN  CONVENTION  FAS  EEEN  OBSERVED  - 
VARIABLES  WHOSE  NAMES  BEGIN  WITH  LETTERS  I-K  ARE 
INTEGERS,  ALL  CTHEP  VARIABLES  ARE  REALS 

ALL  CASES  AND  MISSIONS  ARE  ONLY  THOSE  FOR  WHICH  THE 
SERVICES  OF  A  C-130  ARE  RBCUIREC  OR  DESIRED 


CARC  1  -  FORMAT 
NSCPY 
NNSCPY 
N 

NSTUP 
NPUNS 

ALON 
ALATN 


#  7030 

NUMBER  OF  SAP.  CASES  PEP  YEAR 

NUMBER  CF  NON-SAR  CASES  (MISSIONS)  PER  YEAR 

TOTAL  NUMEER  CF  REPLICATION  YEARS  THE  PRO- 
GRAM SHOULD  BE  RUN.   UNLESS  MAKING  NON 
CONFIDENCE  LEVEL  RUN,  SET  =  10 

NUMBER  CF  SIMULATION  CAYS  THAT  THE  PROGRAM 
SHOULD  BE  RUN  PRIOR  TC  GATHERING  CATA 

NUMBER  OF  SEPARATE  ASSIGNMENT  COMBINATIONS 
TO  BE  INVESTIGATED  IN  SUBJECT  EXERCISE  CF 
PROGRAM 

MEAN  DISTANCE  FROM  COAST  CF  C-13C  SAR  CASES 
IN  THE  ATLANTIC 

MEAN  DISTANCE  NORTH  OF  MAINE  OF  C-130  SAR 
CASES  WHICH  OCCUR  NORTH  CF  MAINE 


CARC  2 
CFA 

CFE 

CFC 
SP 


-  FORMAT  n    7001 


CORRECTION  FACTOR  APPLIED  TO  FXFECTFD  NUMBER 
OF  SAR  CASES  DURING  PEAK  DAYS  IN  FCUP  WEEK 
PERIOD 

CORRECTICN  FACTOR  APPL1EC  TO  EXPECTED  NUMEER 
OF  SAR  CASES  DURING  NGN-PEAK  DAYS  IN  FOUR 
WEEK  PERIOD 

CORRECTION  FACTOR  APPLIED  TC  EXPECTED  NUMBER 
CF  NON-SAR  MISSIONS  DURING  FOUR  WEEK  PERIOD 

PROPORTION  OF  MISSIONS  kHICH  ARE  SPECIAL; 
I.E.,  FOR  WHICH  ACTION  IS  INITIATED  AT  OTHER 
THAN  NORMALLY  SCHEDULED  TAKE  OFF  TIMES 


IS1 


INITIAL  SEED  FOR  SAR  CASE  TIME  GENERATION. 


69 


ODD  INTEGER  OF  5  70  9  CHARACTERS 


IS2 


INITIAL  SEED  FOR 
ODD  INTEGER  OF  5 


MSSICN  TIME  CFNFRATICN 
TO  9  CHARACTERS 


CARD  3 
IS3 


-  FORMAT  M    7002 


TCPD( 2) 


LAC(3) 


PCSC 


INITIAL  SEED  FOR  RANDOM  NUMBER  GENERATOR 
USED  FOR  DETERMINING  SAP  CASE  INFCRNATICN 
OOD  INTEGER  OF  5  TO  9  CHARACTERS 

CONDITIONAL  PROBABILITY  THAT  GIVEN  A  SAR 
CASE,  IT  WILL  HAVE  A  CERTAIN  PRICRITY 

1  =  PRIORITY  ONE 

2  =  PRICRITY  TWO 

3  =  PRIORITY  THREE 


POTENTIAL  C-13G  STATION  DISTANCES 
NAUTICAL  MILES  F-RCH  SOUTHERN  BASE 
THE  flMULATEC  COAST  LINE 
L  =  NORTHERN  STATION 

2  =  CENTRAL  STATION 

3  =  SOUTHERN  STATION 


IN 
LINE 


ALCNG 


CONDITIONAL  PROBABILITY  THAT 
PRIORITY  ONE  SAR  CASE,  IT  IS 
CN  SCENE  RELIEF,  CASE 


GIVEN  A 

A  CCNTINUOUS, 


CARD  4 


FORMAT  U    7005 


CCFAAU  ) 


CDFA6(3) 
CCFC 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A 
PRIORITY  ONE  SAP.  CASE,  A  CERTAIN  NUMBER  OF 
C-L30  AIRCRAFT  WILL  BE  REQUIRED 

1  =  ONE  C-130 

2  =  TWO  C-130S 
ETC. 

SAME  AS  AECVE  ONLY  CCNC1TI0NAL  CN  A  PRIORITY 
TWO  SAR  CASE 

CONDITIONAL  PROBABILITY  THAT  GIVEN  A 
PRICRITY  THREE  SAR  CASE  ONLY  ONE  C-L30  AIR- 
CRAFT WILL  EE  REQUIRED 


CARC  5    -  FORMAT 
PPRI (2) 


PHCLDl 

PHCLD2 

PHCLD 

PSC 


H    7006 

CONDITIONAL  PROBABILITY  THAT  GIVEN  A  REGULAR 
MISSION,  IT  WILL  HAVE  A  CERTAIN  PRICRITY 

1  =    PRICRITY  ONE 

2  =  PRICRITY  TWO 

3  =  PRIORITY  THREE 

CONDITIONAL  PROBABILITY  THAT  GIVEN  A  FPICP- 
ITY  ONE  MISSION,  IT  CAN  BE  HELD  FAST  THE 
DESIRED  CEPARTURE  TIME  WITHOUT  CANCELLATION 


SAME  AS  ABCVE  ONLY  GIVEN 
MISSION 

SAME  AS  ABOVE  ONLY  GIVEN 
CNE  MISSION 


A  PRICFITY  TWO 

A  SPECIAL,  PRICRITY 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A  SPECIAL 
PRIORITY  CNE  MISSION  IT  IS  A  SAP  CASE 
DEPLOYMENT  OL'TSIDE  THE  NORMAL  OPERATIONAL 
AREAS 


PTAD 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A  PRIOR- 
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ITY  THREE 
DAY 


MISSION,  ITS  CURATION  EXCEEDS  CNE 


CARD  6  -  FORMAT 
PNFSCO) 


PSCLO) 


PSUBM 


IS4 


H    7  00  7 

CONDITIONAL  PROBAEILITY  THAT  GIVEN  A  PRIOR- 
ITY ONE  FISSION  WHICH  IS  A  DEPLCYFD  SAR  CASE 
THAT  IT  KILL  REQUIRE  A  SPECIFIED  MFBER  OF 
C-130  AIRCRAFT 

1  =  ONE  C-L30 

2  =  TWO  C-L20S 

3  =  THREE  C-130S 

CONDITIONAL  PROBAEILITY  THAT  GIVEN  A  PRIOR- 
ITY ONE  MISS  I  Of!  WHICH  IS  A  DEPLCYEC  SAP 
CASE,  A  PARTICULAR  C-130  STATICf\  WILL  BE 
CLOSEST  TO  THE  SCENE 

1  =  NOFTHERN  STATION 

2  =  CENTRAL  STATION 

3  *  SOUTHERN  STATION 

CONDITIONAL  PROBABILITY  THAT  GIVEN  A  MISSICN 
WHICH  IS  NOT  A  DEPLOYMENT  SAR  CASE,  IT  IS  OF 
THE  TYPE  FOP  WHICH  A  HELICOPTER  CCULC  BE 
USED  IF  NECESSARY 

INITIAL  SEED  FOR  RANDOM  NUMBER  GENERATOR 
USED  FOR  DETERMINING  FISSION  I  NF  C  FN' AT  I  ON  . 
ODD  INTEGER  OF  5  TO  9  CHARACTERS 


CAPC  7  -  FORMAT  #    7006 


PUP(8) 


CONDI 
WHICH 
CRIGI 
LOCAT 

1  - 

2  - 

3  = 

4  = 

5  = 

6  = 

7  = 

8  = 


T  10 
IS 

N  0 

ION 

SO 

NO 

u. 

NE 
WA 
NO 
CE 
SO 


NAL  PROBAEILITY  THAT  I 

NOT  A  DEPLOYMENT  SAR 

F  THE  MISSION  IS  AT  A 


STON 

RTHERN  STATION 

S.  COAST  GUARD 

W  YORK 

SHINGTON,  B.C. 

RFOLK 

NTRAL  STATION 

LTHERN  STATION 


,  I  V  E  h  A  MISSICN 

CASE,  THE 
SPECIFIC 


ACADEMY 


CARD  8  -  FORMAT   #  7  009 

PUF19-11)   =   SAME  AS  ABOVE 

9  =  MI  AM 

10  =  NEW  ORLEANS 

11  =  ANYWHERE  ALONG  CGAST 


CARC  9  -  FORMAT  #    7109 


QNDG2<6) 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A  PRIOR- 
ITY TWO  MISSION,  THE  MISSION  WILL  LAST  FOR  A 
SPECIFIC  NUMBER  OF  12  FCLR  TIME  PERIODS. 
(OPERATING  HOURS) 

1  =  12  HOURS 

2  =  24  HOURS 

3  =  36  HOURS 
ETC. 


CARC  10  -  FOR  FAT  U    7  010 
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QNCG3(8V 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A  PRIOR- 
ITY THREE  MISSION  LASTING  MORE  THAN  ONE  CAY 
THE  MISSION  WILL  LAST  FCR  A  SPECIFIC  NUMBER 
OF  3  PAY  TIME  PERICDS.   (OPERATING  TIME) 

1  =  3  CAYS 

2  =  5  CAYS 
ETC. 


CARC  il  -  FORMAT   #  70L1 

GNCG3(9-15)=   SAME  AS  ABOVE 


CARC  12  -  FORMAT   #  7012 


LCCC1  ) 


LCC(3-6) 


DISTANCE  CF  BOSTON  ALONG  SIMULATED  COAST 
MEASURED  FROM  BASE  LUE  IN  NAUTICAL  MILES 

DISTANCE  ALONG  SIMULATED  COAST  MEASURED 
FROM  BASE  LINE  IN  NAUTICAL  MILES  CF: 

3  =  U.S.  COAST  GLARD  ACADEMY 

4  =  NEW  YORK 

5  =  WASHINGTON,  D.C. 

6  =  NORFOLK 


CARC  12  -  FORMAT  H    7G13 


CNCGK4) 


PMEDIC 


PSSC 


CONDITIONAL 
ITY  ONE  ,« 
NUM3ER  OR 

1  =  i 

2  =  TWO 
ETC. 


PROBABILITY  THAT  GIVEN  A  PRIOR- 
ISSIONf  IT  WILL  LAST  FCR  A  SPECIFIC 
PARTIAL  NUMBER  OF  DAYS 
DAY 
DAYS 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A 
SPECIAL,  PRIORITY  ONE  MISSION,  IT  IS 
MEDICAL  EVACLATION  MISSION 


CONDITIONAL 
CASE  WITHIN 


PROBABILITY  THAT  GIVEN  A 


TYPE  FOR  WHICH 
NECESSARY 


300N".  OF  THE  COAST  IT 


A  HELICCPTER  CCLLC 


IS 

BE 


SAR 

OF  THE 
USEC  IF 


CARC  14 
NPN 

NPC 

NPS 


-  FORMAT  n    7014 


NUMBER  OF  C-130  AIRCRAFT  ASSIGN-ED  TO  NORTH- 
ERN C-130  STATION  FOR  FIRST  ASSIGNMENT 
COMBINATION  TO  BE  INVESTIGATED 

NUMBER  OF  C-130  AIRCRAFT  ASSIGNEE  TO  CEN- 
TRAL C-12C  STATION  FOR  FIRST  ASSIGNMENT 
COMBINATION  TO  BE  INVESTIGATED 

NUMBER  OF  C-120  AIRCRAFT  ASSIGNEC  TO  SOUTH- 
ERN C-130  STATION  FOR  FIRST  ASSIGNMENT 
CGMBINATICN  TO  BE  INVESTIGATED 


NOTE:   MAX  TOTAL  C-130 
ASSIGNED  =  15 


AIRCRAFT  THAT  CAN  BE 
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CARC  15  -  FORMAT  U    7015 

SDR(5)      =   CONDITIONAL 
IS  FOUND  TO 


PPCR 


IS5 


FOLLOWING  ITS 

BE  A  SPECIFIC 

c 


PROBABILITY  THAT  GIVEN  A  C-130 
H-AVE  MECHANICAL  DISCREPANCIES 


RETURN  FPCM  A  FLIGHT,  IT  WILL 
NUMBER  CF  HCUP.S  UMIL  IT  IS 


1  =  2  FOURS 

2  =  4  HCURS 
3=8  HOURS 

4  =  24  HOURS 

5  =  72  HOURS 

PROBABILITY  THAT  A  C-130  WILL 
HAVE  MECHANICAL  DISCREPANCIES 
WHICH  REQUIRE  REDAIR  PRICR  TO 
OPERATICNS 


BE  FOUND  TO 
AFTER  LANCING 
FLPTFER  FLIGHT 


INITIAL  SEED  FOR  RANDCN  NUMBER  GENERATOR 
USED  IN  DETERMINING  IF  AN  AIRCRAFT  IS  FOUND 
TO  HAVE  MECHANICAL  DISCREPANCIES  fcPEN  START- 
ED UP  FOR  A  FLIGHT  AND,  IF  SO,  CE TERM  I  NAT  I CN 
CF  THE  NUMBER  CF  HCURS  TC  REPAIR  IT 


CARC  16  -  FORMAT   #  7016 


PSCWRC4) 


PPDIF 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A  C-12C 
DEVELOPS  A  MECHANICAL  DISCREPANCY  DURING  A 


SAR  FLIGHT  OR  FLIGHT 
REQUIRES  IT  TO  ABORT 
A  SPECIFIC  NUMBER  CF 
PAIRED  AFTER  LANDING 

1  =  4  HOURS 

2  =  8  HOURS 

3  =  24  HOURS 

4  =  36  HOURS 


PROBABILITY  THAT  A  C-13C  WILL 
MECHANICAL  DISCREPANCY  CURING 
HOUR  WHILE  ON  A  SAR  FLIGHT  OR 
STATIONS  WHICH  REQUIRES  IT  TO 
FLIGHT 


BETWEEN  STATICNS  WHICH 
THE  FLIGHT,  IT  WILL  BE 
FCURS  UNTIL  IT  IS  RE- 


DEVELOP A 
A  PARTICULAR 
FLIGHT  BETWEEN 
ABC  FT  THE 


CARC  17  -  FORMAT  «    7017 


PPCS 


SPCF(5) 


PROBABILITY  THAT  A  C-130  WILL  BE  FCUND  TC 
HAVE  A  MECHANICAL  DISCREPANCY  SLCF  THAT  IT 
CAN  NOT  FLY  WHEN  STARTEC  FOR  TAKE  OFF 


iEFCRE  BEING 


CONDITIONAL  PROBABILITY  THAT  GIVEN  A  C-13C 
IS  FOUND  TO  HAVE  A  MECHANICAL  DISCREPANCY 
WHEN  STARTED  FOR  TAKE  CFF,  IT  WILL   EGUIRE 
A  SPECIFIC  NUMBER  OF  HCURS 
READY  FCR  FLIGHT 

I  =  2  HCURS 

2=4  HOURS 

3=8  HCURS 

4  =  24  HOURS 

5  =  72  HOURS 


CARC  18 

NSNA 

NSCA 
NSSA 


-  FORMAT  U    7018 


NUMBER  OF  STATIONS  WITH  HELICOPTERS  ATTACHED 
WITHIN  3C0NM  OF  THE  AREA  COVEREC  EY  THE 
NORTHERN  C-130  STATION 

SAME  AS  ABOVE  ONLY  FCR  CENTRAL  C-130  STATICN 

SAME  AS  ABCVE  CNLY  FOR  SCUTHERN  C-130 
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STATION 


IS* 


INITIAL  SEED  FOR  RANDCf"  NUMBER  GENERATOR 
USED  IN  DETERMINING  AVAILABILITY  CF  HELICOP- 
TERS FOR  SUBSTITUTING  CN  C-130  CASES  WHEN 
REQUIRED,   ODD  INTEGER  CF  5  TO  9  CHARACTERS. 


CAPCS  19  TC  X  -  FORMAT  M    7C19 

X=18+NUMBER  OF  STATICNS  ENTERED 


ON  CARD  L8 


NCTE:   ALL  VALUES  ARE  INTEGERS  RIGHT  ADJUST  EC  TO  COL- 
UNMS  5,10,  .  .. ,55,60 

EACH  CARD  CONTAINS  INFORMATION  ON  CNE  STATICN 
WITHIN  RANGE  CF  A  PARTICULAR  C-L3C  STATION 
AREA  AND  ARE  ARRANGED  AS  FOLLOWS 

A.  BY  C-L3C  STATION  AREA  FRCM  NORTH  TO  SCUTH 

B.  WIT-HIN  C-L30  STATION  AREA  WITH  THE  SOUTHERN 
MOST  HELICOPTER  STATICN  WITHIN  HELICCPTER 
RANGE  FIRST 

C.  SOME  HELICCPTER  STATICNS  fAY  HE  ENTERED 
MORE  THAN  ONCE  DUE  TO  BEING  WITHIN  HELICCP- 
TER RANGE  CF  MORE  THAN  CNF  C-130  STATION 
AREA.   MAXIMUM.  TOTAL  STATION  ENTRIES  ALLOW- 
ED =  25  (DUPLICATIONS  INCLUDED) 


INFORMATION  FOR  EACH  STATICN  IS  ENTERED  IN  THE 
FOLLOWING  CRDER,  BY  RIGHT  ADJUSTEC  CCLUMNS: 


05: 
10: 


15 

2  0 
25 
3C 
35 

45 

50 
55 

60 


NAUTICAL  MILES  ALONG  SIMULATED  NORTH/SOUTH 
COAST  LINE  FROM  BASE  LINE 

NAUTICAL  MILES  TO  RIGHT  OR  LEFT  CF  SIM- 
ULATED NORTH/SOUTH  CCAST  LINE.   CISTANCES 
RIGHT  ARE  POSITIVE,  DISTANCES  LEFT  APE 
NEGATIVE.   STATIONS  WITHIN  iCCNf  CF  COAST 
LINE  ARE  PROJECTED  TC  THE  COAST  LINE 

NUMBER  OF  HH-3F  HELICOPTERS  ATTACHED 

NUMBER  OF  HH-52A  HELICCPTERS  ATTACHED 

=0  (NCT  USEC) 

=  0  Hi    rF  HH-3FS  ON  C-130  CASES) 

NORMAL  AVAILABILITY  CF  HH-3FS  >     ICG  (I.E., 
0.40  =  ENTRY  OF  40) 

SAME  AS  ENTRY  AECVE  (CURRENT  AVAILABILITY 
OF  HH-3FS  X  IOC) 


=0  (#  CF  HH-52AS  ON  C-130  CASES) 
NORMAL  AVAILABILITY  CF  ONE  HH-52A  X 


ICC 


SAME  AS  ENTRY  AECVE  (CLRRENT  AVAILABILITY 
OF  HH-52AS) 

NORMAL  AVAILABILITY  CF  TWO  HF52-AS  X  100 


CARCS  X+l  TO  (END-(NRUNS-l) )  -  FORMATS   /  702C  i     A  7021 
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NOTE 


TWO  CARDS  FOR  EACH  MONTH 


ALL  VALUES  ARE  DECIMALS  RIGHT  ADJL'STEC  TO 
COLUMNS  10,20, .. .,70,80 

INFORMATION  IS  ENTERED  FCP  EACH  MCNTh  AS 
FOLLOWS,  BY  RIGHT  ADJUSTED  COLUMNS: 


RCPMA' 


U    7020 


10:  PROPORTION  OF  T 
DURING  SUBJECT 

2C:  PROPORTION  OF  T 
DURING  SUBJECT 

20:  PROPCRTION  OF  S 
WHICH  OCCUR  ON 

40:  CONDITIONAL  PRO 
THE  FIRST  COAST 
MAINE 

50:  PROPORTION  OF  S 
IN  THE  FIRST  CO 

60:  PROPORTION  OF  S 
IN  TFE  THIRD  AN 

70:  PROPCRTION  OF  S 
IN  ThE  SEVENTH 

80:  CONDITIONAL  PRO 
THE  SEVENTH  CCA 
IS  SCUTH  OF  A  L 
FLORIDA  AND  PUE 


OTAL  SAR  CASES  FCR  YEAR  WHICH  CCCUR 
MONTH 

CTAL  MISSIONS  FCR  YEAR  WPICE  OCCUR 
MONTH 

AR  CASES  DURING  THE  SUBJECT  MONTH 
PEAK  SAR  DAYS 

BAEILITY  THAT  GIVEN  A  S /!  R  CASE  IS  IN 
GUARD  DISTRICT,  IT  IS  hCFTH  OF 


AP  CASES  DURING  THE  SUEJECT  MONTH 
AST  GUARD  DISTRICT 

AR  CASES  DURING  THE  SUEJECT  MONTH 
D  FIFTH  CCAST  GUARD  DISTRICTS 

AR  CASES  DURING  THE  SUEJECT  MONTH 
AND  EIGHTH  COAST  GUARD  DISTRICTS 

PABI1.  ITY  THAT  GIVEN  A  SAP  CASE  IS  IN 
ST  GUARD  DISTRICT  ATLANTIC  AREA,  IT 
INE  RUNNING  BETWEEN  THE  MIDDLE  GE 
RTO  RICO 


FCPMAT  H    7021 

10:   CONDITIONAL  PROBABILITY  THAT  GIVEN  A  SAR  CASE  IS  IN 
THE  SEVENTH  OR  EIGHTH  COAST  GUARD  DISTRICTS,  IT  IS 
IN  THE  GULF  OF  MEXICO 

20:   NUMBER  OF  PEAK  SAR  OCCURRENCE  RATE  DAYS  IN  WEEK 

2C:   NUMBER  CF  DAYS  IN  MONTH 

40:   PROPCRTION  OF  TIME  IN  SUBJECT  MONTH  THAT  NORTHERN 
G-130  STATION  WEATHER  IS  EXPECTED  TO  EE  EELCW 
INSTRUMENT  FLIGHT  MINIMUMS 

50:   SAME  AS  AbCVE  CNLY  FCR  CENTRAL  C-130  ST^TICN 

60:   SAME  AS  ABCVE  CNLY  FCR  SOUTHERN  C-130  STATION 


CAPC  (END-(NRUNS-l) )  -  FORMAT 


7022 


CCNF 
ERROR 


NORMAL  CRITICAL  VALUE  CORRESPONDING  TO  THE 
LEVEL  OF  CONFIDENCE  DESIRED 

UNCERTAINTY  LIMIT  DESIRED 


CARDS  <END-(NRUNS-2) )  TO  END  -  EOF  MAT   H    7023 
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Cf\E  CARD  FCR  EACH  ADDITIONAL  ASSIGNMENT  DISTRIBUTION  TC 
BE  RLN  AFTER  INITIAL  RUN 

N  =   SAME  AS  N  ON  CARD  1 

NSTUP       =   SAME  AS  NSTUP  ON  CARD  L 

NPN         =   NUMBER  OF  C-130  AIRCRAFT  ASSIGNEE  TC  NORTH- 
ERN C-L2G  STATION  FOR  SUBJECT  ASSIGNMENT 
COMBINATION  TO  LI   INVESTIGATED 

NPC  =  NUMBER  OF  C-130  AIRCRAFT  ASSIGNEE  TC  CEN- 
TRAL C-130  STATION  FOR  SUBJECT  ASSIGNMENT 
COMBINATION  TO  BE  INVESTIGATED 

NPS         =   NUMBER  CF  C-130  AIRCRAFT  ASSIGNEC  TO  SOUTH- 
ERN C-130  STATION  FCR  SUBJECT  ASSIGNMENT 
COMBINATION  TO  BE  INVESTIGATED 

NOTE:   MAX  TOTAL  C-130  AIRCRAFT  THAT  CAN  EE 
ASSIGNED  ---  15 

END 
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STUDY  INPUT  VALUES 
FCR 
VARIABLE   PARAMETERS 


INPUT  VALUES  ARE  LISTED  IN  THE  SAME  ORDER 
AS  FOUND  IN  THE  'LISTING  CF  REQUIRED  INPLTS 
FCR  PRCGRAM  VARIABLE  PARAMETERS';  PART  CNE  CF 
APPENDIX  B.  THE  'LISTING  OF  REQUIRED  INPLTS' 
SHOULD  BE  REFERRED  TO  FCR  EXPLICIT 
PARAMETER  DEFINITIONS 


NSCPY 

NNSCPY 

N 

NSTUF 

NRUNS 

ALON 

ALATN 

CFA 

CFB 

CFC 

SP 

ISI 

IS2 

IS3 

TCPDO)   = 

LAC (3) 

PCSC 

CDFAA(4)  = 

CDFAEO)  = 

CDFC 

PPRK3)   = 

PH0LC1 

PH0LC2 

PHCLC 

PSC 

PTAD 

PNPSCC3)  = 


VARIED  DEPENDING  ON  YEAR  BEING  STUCIEC 

VARIED  DEPENDING  ON  YEAR  BEING  STUDIED 

ICO  YEARS 

40  DAYS 

VARIED  DEPENDING  ON  RUN  SET  LP  DESIRED 

120  NAUTICAL  MILES 

50  NAUTICAL  MILES 

VARIED  DEPENDING  ON  YEAR  BEING  STUCIEC 

VARIED  DEPENDING  ON  YEAR  BEING  STUDIED 

VARIED  DEPENDING  ON  YEAR  BEING  STUDIED 

0.10 

VARIED  WITH  DIFFERENT  YEARS 

VARIED  WITH  DIFFERENT  YEARS 

VARIED  WITH  CIFFERENT  YEARS 

0.30   0.40   0.30 


1850 
0.15 
0.20 
0.30 
0.60 
0.15 
0.50 
0.50 
0.50 
0.70 
0.10 
C  .30 


1350 

0.50 
0  . 6  0 


710 

C.25 
0.10 


0.05 


0.35   0.50 


C  .  1 0   0.10 
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PSCU3) 

PSU6N 

IS4 

PUP(LL) 

CNDG2(6) 
GNCG2( 15) 

LOC(l) 

LCCO-6) 
QNDGH4  ) 
PMECIC 

PSSC 

NPN 

NPC 

NPS 

SDR<5) 

PPDB 

IS5 

PSDWR(4  ) 

PPCIF 

PPDS 

SPDF<5) 

NSNA 

NSCA 

NSSA 


C.20   0.30   0.40 

0.20 

VARIED  WITH  DIFFERENT  YEARS 


0.C4 
0.  15 


0.15 

0.15 


0.1 


0.04 
0.04 


0.  10 
0.  10 


0.04 


0.50   0.20   CIO   0.10   0.C5   0.05 

0.10  0.20  0.15  0.10  0.10  0.10 
0.05  0.05  0.025  0.025  0.C2  0.02 
0.C2   0.02   0.02 

1870 

1750   1670   1480   1380 

0.20   0.50   C.20   0.10 

0.10 

0.50 

VARIED  WITH  AIRCRAFT  DISTRIBUTION  BEING  STUDIED 

VARIED  WITH  AIRCRAFT  DISTRIBUTION  BEING  STUDIED 

VARIED  WITH  AIRCRAFT  DISTRIBUTION  BEING  STUCIED 

0.10   0.10   C.30   0.3C   C.2C 

0.60 

VARIED  WITH  CIFFERENT  YEARS 

0.10   0.50   C.3  0   0.10 

0.02 

0.25 

0.25   0.25   C.3C   0.15   0.C5 

5 

5 

7 


NSTA 


NORTHERN  HC-130  AREA 


STATICN 
NAME 

E  .  CITY 
CAFE  NAY 
BRCCKLYN 
CAFE  COD 
PCPTLAND 


LATI-  LONGI- 
TUDE   TUD£ 


1350 
1640 
1670 
1850 
1955 


H-2A   H-52A 
ATT.    ATT. 


4 

0 
0 
3 

0 


0 

4 

7 
0 
3 


H-3A 
AV. 

F-52A 
1AV. 

H-52A 
2AV. 

40 
0 
0 

30 
0 

C 
7C 
95 

C 
6C 

0 
15 
40 

0 
IC 

CENTRAL  HC-130  AREA 


STATION 
NAME 

LATI- 
TUDE 

LONGI- 
TUDE 

H-3A 
ATT. 

H-52A 
ATT  . 

H-3A 
AV. 

H-52A 
1AV. 

H-52A 
2AV. 

SAVANNAH 
E.  CITY 
CAFE  MAY 
BROOKLYN 
CAPE  CCD 

950 
1350 
164  C 
167C 
1850 

0 
0 

0 
0 

0 
4 

0 
0 

3 

3 
0 
4 
7 
0 

0 

40 

0 

0 

30 

6C 

C 

7C 

95 

C 

10 

C 

15 

40 

0 

SOUTHERN  HC-130  AREA 


STATION 
NAME 

CORPUS 
ST.  PETE 
MIAMI 
NEW  ORL. 
HCLSTCN 
P.  PICO 
SAVANNAH 


LATI-  LONGI- 
TUDE   TUDE 


435 
555 
595 
625 
625 
710 
950 


-880 

0 

155 

-510 

-BOO 

1200 

0 


H-3A 
ATT. 

0 
5 
0 
4 
0 
2 
0 


H-52A 
ATT. 

3- 
2 
5 

0 
4 
0 
3 


H-3A   H-52A   F--52A 
AV.     1AV.    2AV. 


0 

50 
0 

40 
0 

20 
0 


6C 
3C 
85 

C 
7C 

C 
60 


10 
5 

30 
0 

15 
0 

10 


TMCNTH 

ITEMS (*) 
10 
20 
30 
40 
50 
60 
70 
80 
10 
20 
20 
40 
50 
60 


1 
.05 
.05 
.4  0 
.03 
.  15 
.25 
.60 
.75 
.75 
2.0 

31 
.03 
.02 
.02 


2 
.C5 

.C5 
.40 
.03 
.  15 
.25 
.60 
.75 
.75 
2.0 
28 
.03 
.02 
.02 


.  C5 
.  08 
.40 
.  C3 
.  15 
.25 
,60 
.75 
.  75 
2  .0 
31 
.  C3 
.02 
-C2 


.05 
.08 
,4C 

.  C3 
.  15 
.25 
.60 
.75 
.75 
2.0 
30 
.  C3 
.02 
.02 


MCNr 

5 
.10 
.10 
.50 
.03 
.  15 
.25 
.60 
.75 
.75 
3.0 

31 
•  0£ 
.C2 
«C2 


HS 

6 
.  12 
.13 
.50 
.03 
.  15 
.25 
.60 
.75 
.75 
3.0 

30 
.02 
.02 
.02 


7 

.  12 
.13 
.50 
.03 
.  1.5 
.25 
.60 
.75 
.75 
3.0 
21 
.02 
.02 
.02 


a 

.12 

.13 
.5C 
.03 
.  IS 
.25 
.60 
.75 
.75 
2.0 
31 
.02 
.C2 
.C2 


9 
.10 
.10 
.50 
.03 
.15 
.25 
.60 
.75 
.75 
3.0 

30 
.02 
.02 
.02 


10   11   12 

.C£  .08  .08 


,C5 


.  / 


/ 


.05 


.  4  C  .40  .40 
.C3  .03  .03 
.15  .15 
.25  .25 
.tC  .60 

.75 

.75 

2  .C  2.0  2.C 
21  30  31 
.C3  .03  .03 
.  C  2  .  C  2  .02 
,C2  .02  .02 


15 
25 
60 
75 
75 


BY  RIGHT  ADJUSTED  COLUMNS  AS  SHCWN  ON  CARCS  X+l  TO 
(END-(NRUNS-l)  )  IN  'LISTING  OF  REQUIRED  INPUTS' 


CONF 

ERROR 


1  .96 

0.C5 


79 


APPENDIX  C 


SENSITIVITY  ANALYSIS  RESULTS 


Parameter 
Change 

Resultant 

Change  (%) 

Mission 
Hrs.  Lost 

On-Scene 
Hrs.  Lost 

Extra 
Fit.  Hrs, 

Total 
RONs 

Increase  number  of 
cases  per  year 
by  10%* 

+  10.2 

+  7.3 

+  2.  6 

+  4.6 

Increase  offshore 
;:ean  distance  of 
cases  by  10 % 

+  2.  0 

+  2.0 

-4.0 

+  4.3 

Increase  mean  cist, 
of  cases  north  of 
aine  by  10% 

0.0 

0.0 

0.0 

0.0 

Incr.  me an  priori ty 
of  SAR  cases  by  10 

+  14.1 

+  3. .6 

+  7.6 

+  12.5 

Incr.  mean  district 
case  location  north 
by  10% 

+  5.0 

+  7.0 

+  11.1 

+  15.1 

Incr.  mean  number 
of  planes  req.  for. 
pri.l  cases  by  10% 

+  0.  9 

+  3.4 

-3.0 

+  4.7 

I ncr '.'   : :  ean  numb  e  r 
of  planes  req.  for 
Pri.2  cases  by  10% 

+  5.9 

+  5.5 

-2.6 

+  4.6 

Incr.  prob.  Pri.3 
case  requires  more 
than  one  plane  10% 

+  1.  2 

+  0.9 

-5.9 

+  1.1 

Incr.  probability 
SAR  case  is  contin- 
uous by  10% 

+  5.4 

+  1.6 

-5.  5 

+  0.7 

Increase  u.u  ~  ber  of 
missions  per  year 

by  10% 

+  8.8 

+  1.8 

-10.2 

+  0.1 

80 


SENSITIVITY  ANALYSIS  RESULTS 


Parameter 
Change 

Resultant 

Change  (%) 

Mission 

On-Scene 

Extra 

Total 

Hrs .  Lost 

Hrs.  Lost 

Fit.  Hrs, 

RONs 

Incr.  mean  priority 

of  missions  by  10% 

-11.2 

+  1.3 

-3.2 

+  0.3 

Incr.  proportion  of 

Pri.l  missions  that 

are  SAR  cases  10% 

+  3.3 

+  1.8 

-3.00 

+  1.  3 

Incr.  proportion 

of  missions  that 

are  specials  10% 

+  1.4 

+  1.8 

-6.4 

+  3.5 

Incr.  prob.  special 

mission  is  a  MEDICO 
by  10% 

+  4.3 

-0..6 

-2.0 

+  1.  3 

Incr.  probability 

P  r  i .  3  mission  i  no  r  e 
than  one  day  by  10% 

+  2.6 

+  0.  2 

-4.0 

+  0.6 

Incr.  probability 

hold  priority  one  ; 
mission  by  10% 

-1.1 

+  0.4 

-2.3 

+  2.3 

I  n  c  r ."  prob  a3  3  i  1  i  ty 

hold  priority  two 
mission  by  10% 

+  4.3 

+  1.3 

-4.4 

+  1.1 

Incr.  probability 

hold  spec,  mission 
by  10% 

+  4.2 

+  0.7 

+  0.  5 

+  3.0 

Incr.  probability 

of  maint.  down  on 
start  up  by  10% 

+  0.8 

+  2.4 

+  0.  5 

+  3.5 

Incr.  mean  down 

time  due  m<  ch.  en 

+  3.  5 

+  0.8 

+  0.  2 

+  1.4 

s  cart  up  by  1  -  , 

■ 
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SENSITIVITY  ANALYSIS  RESULTS 


Parameter 
Change 

Resultant  Change  (%) 

Mission 
Hrs.  Lost 

On-Scene 
Hrs.  Lost 

Extra 
Fit.  Hrs, 

Total 
RONs 

Incr.  probability 

abort  flight  clue 
mech.  by  50% 

+  4.6 

+  5.6 

+  3.9 

+  6.8 

Incr.  mean  down 
time  clue  abort  by 
1 0 1 

+  1.  2 

+  0.9 

+  0.2 

+  1.1 

Incr.  probability 
of  maint.  clown 
after  landing  10% 

+  4.0 

+  3.1 

-4.  2 

+  3.5 

Incr.  me an  down 
time  duo  mech.  or. 
land  in-;  by  10% 

+  2.7 

+  4.1 

-0.6 

+  6.5 

I n cr .  p r ob .  north 
station  below  IFF. 
mins.  by  10% 

-0.1 

+  1.0 

-3.9 

+  1.9 

Incr.  prob.  central 
station  below  IFR . 
tins,  dv    10% 

+  2.4 

+  1.0 

-4.1 

+  0.6 

Incr.'  prob.  south 
station  b  e  1  ow  I F  ?. 
mins .  by  10% 

-2.3 

+  0.4 

-3.8 

+  1.2 

Incr.  probability 

of  helo.  sub  on 
cases  by  10% 

-1.8 

-0.1 

-5.2 

+  1.9 

Incr.  probability 

of  helo.  sub  on 
missions  by  10% 

-2.3 

+  0.9 

-4.6 

+  2.7 

Increase  helicopter 

ivai]  al:  i]  \  .  y  a-  all 

lo  stations  10% 

-0.  5 

-0.2 

-2.8 

+  2.6 

82 


APPENDIX  D 
SIMULATION  MODEL  EXECUTION  PROCEDURES 

After  reading  the  variable  data  inputs  as  specified  by 
the  operator,  the  simulation  generates  SAR  cases  (cases)  and 
non-SAR  missions  (missions)  and  prosecutes  them  during  a 
start-up  period,  the  length  of  which  may  be  specified  by  the 
operator.   Following  the  start-up  period,  record  runs  are 
made  and  data  collected.   After  the  end  of  the  tenth  repli- 
cation year,  the  number  of  replication  years  required  to 
satisfy  the  confidence  and  error  limits  specified  by  the 
operator  are  determined  and  the  simulation  then  runs  to  its 
computed  completion.   If  more  than  one  distribution  of  air- 
craft between  the  same  three  air  stations  is  to  be  evaluated 
in  a  particular  computer  run,  the  program  simply  reads  in 
the  new  distribution  of  aircraft,  zeros  its  talJy  vectors, 
reinitiates  its  random  number  generator  seeds  and  proceeds 
as  before  for  the  new  distribution  of  aircraft  with  the 
same  case  and  mission  requirements. 

A.   CASE  AND  MISSION  OCCURRENCE  TIME  GENERATION 

The  first  action  taken  in  a  time  step  is  to  determine 
if  a  SAR  case  call  is  to  be  received  during  the  time  step. 
If  a  case  call  is  to  be  received,  the  simulation  generates 
the  time  for  the  next  case  call  using  exponentially  dis- 
tributed interarrival  times.   The  occurrence  rate  of  calls 
is  dependent  on  the  month  and  day  of  the  week.   During 


peak  rate  days  of  the  week,  the  occurrence  rate  is  higher 
than  on  non-peak  rate  days  and  more  than  one  call  during 
a  time  step  can  be  received.   During  non-peak  rate  days 
a  maximum  of  one  case  call  per  time  step  is  permitted. 
The  number  of  case  calls  to  be  received  during  the  current 
time  step  are  recorded  as  well  as  the  time  step  of  the 
next  case  call  to  be  received. 

The  simulation  next  determines  whether  regular  non-SAR 
mission  calls  are  to  be  acted  on  during  the  current  time 
step.   If  so,  the  number  of  mission  calls  to  be  acted  en 
at  the  time  of  the  next  regular  mission  take-off  time, 
as  found  during  the  development  of  missions  for  the  current 
time  step,  are  determined  using  exponentially  distributed 
interarrival  times.   The  mission  occurrence  rate  depends 
only  on  the  month  of  the  year.   Each  mission  call  generated 
is  checked  to  see  whether  it  is  a  special  mission  or  not. 
Special  missions  are  considered  to  be  those  that  depart 
upon  receipt  of  the  call  rather  than  waiting  for  a  normal 
take-off  time.   If  the  call  is  a  special  mission,  sub- 
routine MICA  is  called  immediately  and  the  special  mission 
characteristics  determined.   If  the  call  is  simply  a 
regular  mission,  it  is  tallied  to  occur  at  the  next  regular 
mission  take-off  time.   When  a  mission  call  time  is  generated 
which  exceeds  the  next  regular  mission  take-off  time,  the 
next  regular  mission  take-off  time  which  it  does  not  exceed 
is  determined  and  recorded  and  mission  call  generation  for 
the  current  time  step  is  completed. 
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B.   CASE  AND  MISSION  CHARACTERISTICS  GENERATION 

At  this  point  the  simulation  checks  to  see  if  there 
are  any  case  calls  being  received  or  any  missions  to  have 
initial  action  attempted  on   them  during  the  current  time 
step.   If  so,  subroutine  MICA  is  called.   The  function  of 
subroutine  MICA  is  to  generate  the  characteristics  for 
cases  and  missions.   MICA  first  determines  the  characteris- 
tics of  any  SAR  case  calls  being  received  in  the  current 
time  step.   The  case  priority  is  determined  and,  if  it  is 
a  priority  one  case,  a  determination  of  whether  it  is 
a  continuous,  one-scene  relief  case- -continuous  overhead 
coverage  required  throughout  the  case- -is  made.   MICA  next 
determines  the  case  location  starting  with  the  district (s) 
area  and  further  breaking  it  down  until  nautical  mile 
coordinates  relative  to  the  simulated  coast  and  base  lines 
are  determined.   If  the  case  is  within  300  nautical  miles 
(NM)  of  any  coast  line,  a  determination  is  made  as  to 
whether  the  case  is  such  that  a  helicopter  could  be  substi- 
tuted for  an  HC-130  if  necessary.   The  straight  line  dis- 
tances from  each  of  the  three  potential  HC-130  air  station 
locations  are  found  and  the  closest  station  identified. 
The  number  of  HC-130s  required  for  the  case  are  determined 
conditioned  on  the  priority  of  the  case.   If  the  case  is 
a  continuous  on-scene  relief  case,  the  total  number  of 
desired  hours  on-scene  are  determined.   If  the  case  is  not 
a  continuous  on-scene  relief  case,  the  earliest  possible 
take-off  time  for  HC-130S  is  determined  conditioned  on  not 
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departing  earlier  than  0600  and  to  arrive  on-scene  no 
later  than  1600  which  allows  two  hours  of  daylight  on-scene. 
This  implicitly  ignores  variations  in  hours  of  daylight 
due  to  seasons  and  latitude.   The  total  number  of  desired 
hours  on-scene  and  case  termination  time  are  then  deter- 
mined conditioned  on  case  priority  and  available  time 
on-scene  per  flight.   All  case  information  is  loaded  into 
a  case  accounting  vector  and  retained  until  case  termina- 
tion time. 

After  handling  any  cases  to  be  determined,  MICA  generates 
the  characteristics  of  any  missions  requiring  initial  action 
during  the  current  time  step.   MICA  first  determines  the 
priority  of  the  mission  with  all  special  missions  being 
priority  one  missions.   Whether  or  not  the  mission  can  be 
held  beyond  its  regularly  scheduled  take-off  time  is 
determined  conditioned  on  its  priority.   If  it  can  be  held, 
the  maximum  number  of  hours  the  mission  can  be  held  prior 
to  cancellation  are  determined.   If  the  mission  is  a 
special,  a  determination  is  made  as  to  whether  or  not  it 
is  a  deployment  SAR  case  (SAR  case  outside  the  normal 
COMLANTAREA  HC-130  coverage  areas).   If  it  is  a  deployment 
SAR  case,  the  number  of  HC-130s  desired  and  the  closest 
potential  HC-130  air  station  are  determined.   If  the  special 
mission  is  not  a  deployment  SAR  case  and  cannot  be  held, 
it  is  checked  to  see  if  it  is  a  medical  evacuation  (MEDICO) 
mission.   MICA  next  determines  the  point  of  origin  of  a 
regular  mission.   If  the  regular  mission  origin  is  not  at 
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a  primary  location  or  it  is  a  special,  MEDICO  mission,  the 
pick  up  point  is  determined  from  a  uniform  distribution 
along  the  coasts.   Based  on  the  mission  origin  or  pick 
up  point,  the  distances  to  all  HC-130  air  stations  are  found 
and  the  closest  station  identified.   MICA  next  determines 
the  number  of  hours  the  mission  will  be  underway  and  the 
flight  hours  required  conditioned  on  the  mission  priority. 
Finally,  for  other  than  deployment  SAR  cases  or  missions 
lasting  more  than  two  days,  a  determination  is  made  as 
to  whether  a  helicopter  could  be  substituted  for  an  HC-130 
on  the  subject  mission.   All  mission  information  is  loaded 
into  a  mission  accounting  vector  which  is  retained  until 
mission  completion  or  cancellation. 

C.   CASE,  MISSION  AND  AIRCRAFT  UPDATE 

At  this  point  all  cases  and  missions  which  may  require 
action  during  the  current  time  step  are  in  the  case  and 
mission  accounting  vector  arrays.   The  program  now  looks 
at  all  cases  to  determine  if  aircraft  were  on-scene  during 
the  previous  time  step.   If  so,  a  number  of  hours  equal  to 
the  number  of  aircraft  on-scene  are  subtracted  from  the 
total  number  of  hours  requested  on-scene. 

The  simulation  next  looks  at  all  missions  to  determine 
if  any  are  to  be  completed  or  if  any  require  assignment  of 
aircraft  during  the  current  time  step.   The  mission  accounting 
vector  is  zeroed  for  any  mission  which  is  terminating  and 
any  aircraft  assigned  to  the  mission  are  checked  to  ensure 
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that  their  accounting  vectors  indicate  that  they  are  to 
return  during  the  current  time  step.   For  any  missions 
which  require  the  assignment  of  aircraft  during  the  current 
time  step,  separate  mission  action  vectors  are  loaded  with 
the  mission  number,  priority,  and  nearest  proposed  HC-130 
air  station. 

The  HC-150  accounting  vector  array  is  then  scanned  to 
identify  any  HC-130s  which  are  returning  to  air  stations, 
becoming  available  after  maintenance  work,  or  are  arriving 
or  departing  from  any  SAR  case  scene.   For  HC-130s  arriving 
at  an  air  station  after  aborting  a  flight,  the  accounting 
vector  is  zeroed  with  the  exception  of  its  home  station, 
current  location  station,  and  the  fact  that  the  plane  is 
down.   The  time  step  when  it  will  be  available  is  entered 
as  determined  at  time  of  abort.   The  accounting  vectors 
of  any  HC-130s  becoming  available  after  maintenance  are 
zeroed  except  for  their  home  station  and  current  location 
station. 

For  HC-130s  arriving  or  departing  from  a  SAR  case  scene, 
the  next  required  take-off  time  for  an  HC-130  for  the  case 
is  determined,  if  necessary,  and  the  case  accounting  vector 
is  altered  appropriately.   The  time  of  departure  from  scene 
or  time  of  arrival  at  destimation  air  station  is  determined, 
as  applicable,  and  the  HC-130  accounting  vector  altered 
accordingly. 

All  HC-130s  arriving  at  air  stations,  other  than  those 
from  aborted  flights,  are  checked  to  determine  if  they  have 
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maintenance  discrepancies.   If  an  HC-130  does  have  a 
maintenance  discrepancy,  the  number  of  hours  until  it  will 
be  repaired  are  determined.   If  an  HC-130  does  not  have  a 
maintenance  discrepancy,  it  is  automatically  considered 
to  be  down  for  one  hour  for  refueling.   Depending  on  the 
situation,  the  appropriate  entries  as  to  air  station  of 
arrival  and  time  of  availability  are  entered  in  the  air- 
craft's accounting  vector  and  all  other  entries  except 
its  home  station  are  zeroed. 

The  helicopter  accounting  vector  array  is  then  scanned 
to  determine  if  any  helicopters  are  to  return  to  their  home 
stations  from  HC-130  cases  or  missions.   If  a  helicopter 
is  to  return,  the  type  of  helicopter  is  ascertained  and  the 
affected  case  or  mission  accounting  vector  is  altered 
accordingly.   The  helicopter  station  vector  is  then 
changed  to  indicate  the  helicopter's  return  and  the  type 
helicopter  availability  increased  conditioned  on  the  number 
of  helicopters  still  on  HC-130  cases  from  that  particular 
station.   Finally,  the  appropriate  helicopter  action  vector 
is  zeroed. 

The  simulation  now  scans  the  HC-130  vector  array  to 
find  all  HC-130s  on  SAR  cases  or  enroute  between  air 
stations.   Each  HC-130  in  either  of  these  statuses  is 
checked  to  see  if  it  has  developed  a  mechanical  discrepancy 
requiring  it  to  abort  its  flight.   If  an  HC-130  is  required 
to  abort  its  flight  and  it  is  on  a  case,  the  appropriate 
case  accounting  vector  is  changed  to  show  that  the  aircraft 
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is  not  assigned  to  the  case  any  longer.   The  number  of 
hours  the  HC- 130  will  be  down  after  returning  to  an  air 
station  are  determined  and  the  closest  air  station  is 
located.   After  determining  the  time  enroute  to  the  closest 
air  station  at  200  knots,  the  HC-130  accounting  vector  is 
altered  to  show  location  of  the  emergency  air  station,  time 
of  arrival,  number  of  hours  down  after  arrival  and  its 
status  as  "down  on  arrival." 

The  program  next  scans  the  case  accounting  vector  array 
to  determine  any  cases  which  either  require  assignment  of 
aircraft  or  are  to  be  completed  during  the  current  time 
step.   For  cases  which  are  to  be  completed,  the  HC-130 
accounting  vector  array  is  scanned  and  any  HC-130s  enroute 
to  scene  or  on-scene  are  sent  to  the  stations  they  departed 
from,  if  enroute,  or  closest  station  if  on-scene.   Enroute 
times  are  determined  and  the  HC-130  accounting  vectors  are 
changed  appropriately.   The  same  action  is  taken  for  any 
helicopters  assigned  to  the  case.   The  number  of  on-scene 
hours  requested  but  not  covered  are  tallied  and  the  subject 
case  accounting  vector  is  zeroed.   For  cases  which  require 
the  assignment  of  aircraft  during  the  current  time  step, 
separate  case  action  vectors  are  loaded  with  the  case  number, 
priority  and  nearest  proposed  HC-130  air  station. 

D.   HC-130  REQUIREMENT  AND  AVAILABILITY  DETERMINATION 

The  total  HC-130  requirements  from  each  proposed  HC-130 
air  station  are  determined  by  scanning  the  mission  and  case 
action  vectors.   Following  this  determination,  if  any 
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HC-130S  are  required  during  the  current  time  step  the 
number  available  must  be  ascertained.   The  first  step  in 
this  process  is  to  determine  if  any  of  the  air  stations 
are  below  instrument  weather  minimums.   If  they  are,  the 
HC-130s  at  those  stations  are  considered  unavailable  for 
the  current  time  step  and  their  accounting  vectors  altered 
to  reflect  this  fact.   Next,  any  HO130  at  a  station  not 
below  weather  minimums  and  in  a  "ready  to  fly"  status  is 
run  up  to  determine  whether,  if  called,  it  will  be  able  to 
fly.   Those  which  are  found  not  able  to  fly  have  their 
accounting  vectors  changed  to  indicate  "mechanically  down 
if  called."   Following  these  determinations  a  tally  is  made, 
by  air  stations,  of  HC-130s  which  are  available  during  the 
current  time  step. 

E.   HC-130  ASSIGNMENT  PROCESS 

At  this  point  all  of  the  assignment  requirements  for 
HC-130s  and  the  number  of  HC-130s  available  have  been 
identified  for  the  current  time  step.   The  simulation 
must  now  allocate  the  available  HC-130s  among  the  case 
and  mission  requirements.   The  assignment  process  is 
carried  out  as  follows: 

(1)  If  the  number  of  HC-130s  available  at  each 
proposed  HC-150  air  station  are  sufficient  to  meet 
the  requirements  in  the  individual  air  station 
areas  they  are  assigned  within  their  own  areas. 

(2)  If  more  HC-130s  are  required  within  an  air  station 
area  than  are  available  within  that  area  an  attempt 
is  made  to  substitute  helicopters  for  IIC -  130s .   If 
sufficient  substitutions  are  made  so  that  the  con- 
ditions of  item  (1)  above  apply,  then  the  assignment 
procedure  outlined  therein  is  carried  out. 
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(3)  After  attempting  to  substitute  helicopters ,  if  there 
are  still  insufficient  HC-130s  at  each  air  station  to 
cover  individual  air  station  area  requirements  but  the 
total  number  of  HC-130s  available  are  sufficient  to 
cover  all  requirements,  assignments  are  made  between 
areas  after  making  as  many  assignments  within  areas 

as  possible.   Aircraft  are  never  taken  from  one  air 
station  to  cover  priority  three  case  or  mission 
requirements  in  another  air  station  area. 

(4)  If,  after  attempting  helicopter  substitutions,  there 
are  still  insufficient  HC-130s  available  to  meet  the 
case  and  mission  requirements  for  the  current  time 
step,  assignment  of  the  available  HC-130s  is  made 
according  to  the  decision  rules  built  into  the 
simulation. 

1 .   Insufficient  HC-130  Assignment  Decision  Rules 

In  the  event  of  a  requirement/availability  situation 

as  outlined  in  item  (4)  above,  the  assignment  decision  rules 

must  be  invoked.   These  decision  rules  are  built  into  the 

simulation  and  can  only  be  changed  by  reprogramming.   The 

assignment  routine  under  the  decision  rules  is  continued 

until  either  all  priority  one  and  two  case  and  mission 

requirements  have  been  satisfied  or  there  are  no  further 

HC-130s  available.   The  assignment  routine  under  the 

decision  rules  attempts,  in  the  following  order,  to  ensure 

that: 

a.  Every  priority  one  case  has  at  least  one 
aircraft  assigned.   If  insufficient  HC-130s  are  available 
to  do  this,  attempts  are  made  to  divert  HC- 130s  from 
other  cases  according  to  diversion  rules  contained  in 
subroutine  ASSIGN. 

b.  Every  priority  one   mission  has  at  least  one 
aircraft  assigned. 
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c.  Every  priority  one  case  has  at  least  half  of 
the  aircraft  it  requires. 

d.  Every  priority  two  case  has  at  least  one 
aircraft  assigned. 

e.  Every  priority  two  case  has  at  least  half  of 
the  aircraft  it  requires. 

f.  Every  priority  two  mission  has  at  least  one 
aircraft  assigned. 

g.  Every  priority  three  case  has  at  least  one 
aircraft  assigned  if  an  HC-130  is  available  in  the  case 
area. 

h.   Every  priority  three  mission  has  at  least  one 
aircraft  assigned  if  an  HC-130  is  available  in  the  area 
of  the  mission's  origin. 

i.   Every  priority  one  case  lias  all  the  aircraft 
it  requires. 

j.   Every  priority  one  mission  has  all  the  aircraft 
it  requires. 

k.   Every  priority  two  case  has  all  the  aircraft 
it  requires. 

1.   Every  priority  two  mission  has  all  the  air- 
craft it  requires. 

2 .   Helicopter  Substitution  Procedures 

If,  because  of  insufficient  availability  of  HC-130s, 
it  is  necessary  to  attempt  a  helicopter  substitution  on 
a  case  or  mission,  the  main  program  scans  all  the  cases 
and  missions  requiring  aircraft  to  see  if  they  are 
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potentially  substitu table  as  determined  when  they  were 
generated  in  subroutine  MICA.   If  a  potentially  substitutable 
case  or  mission  is  found  in  the  proper  area,  subroutine 
SUB  is  called.   The  main  program  specifies  the  area  of 
concern  and  also  uses  an  indicator  variable  in  calling  SUB 
to  note  whether  case(s)  and  possibly  missions  are  potentially 
substitutable  or  if  there  are  mission(s)  that  are  potentially 
substitutable  in  the  subject  area.   This  reduces  the  scanning 
time  required  for  SUB. 

Depending  on  the  indicator  variable,  SUB  first 
identifies  all  potentially  substitutable  cases  and/or 
missions  in  the  area  specified  by  case  and  mission  number 
and  loads  them  in  case  and  mission  substitution  vector 
arrays . 

Substitutions  are  initially  attempted  on  cases 
beginning  with  the  lowest  priority  first.   In  each  case 
investigated  it  is  known  that  the  case  location  is  within 
300  NM  of  the  coast  line.   However,  it  is  not  known  if  it 
is  within  300  NM  of  any  helicopter  station.   Therefore, 
SUB  begins  with  the  southern  most  helicopter  station  within 
range  of  the  HC-130  air  station  area  and  determines  if  the 
latitude  of  the  case  being  investigated  is  within  300  NM 
of  the  latitude  of  the  helicopter  station,  latitude  being 
NM  north  of  the  simulated  base  line.   If  the  latitude 
distance  is  never  within  300  NM  of  any  helicopter  station 
latitude  the  case  is  considered  to  be  non-subs titutable 
and  its  accounting  vector  changed  accordingly.   If  the 
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latitude  distance  is  within  300  NM  then  the  straight  line 
distance  between  the  helicopter  station  and  case  is  computed 
to  sec  if  it  is  less  than  or  equal  to  300  NM.   If  so,  a  sub- 
stitution is  attempted.   If  not,  and  the  next  helicopter 
station  north  is  not  within  300  NM,  the  case  is  again 
considered  to  be  non-substitutable  and  its  accounting 
vector  changed  accordingly. 

If  the  case  being  investigated  is  found  to  be 
within  300  NM  of  the  helicopter  station,  the  station  vector 
is  queried  to  determine  whether  it  has  HH-3F  helicopters 
attached  and,  if  so,  if  one  is  available  for  substitution 
on  the  case.   If  either  of  these  questions  receives  a 
negative  reply,  the  distance  between  case  and  station  is 
checked  to  sec  if  it  is  less  than  or  equal  to  150  NM.   If 
it  is,  the  station  is  then  queried  concerning  the  availability 
of  two  HH-52A  helicopters  for  substitution,  one  being  required 
to  cover  the  other  on  an  over-water  flight.   If  the  reply  t< 
this  query  is  in  the  negative,  the  next  helicopter  stati> 
north  is  checked.   If  a  case  within  range  of  a  helicopter 
station  cannot  be  substituted  on  because  of  helicopter  non- 
availability, its  accounting  vector  is  not  altered. 

If,  during  this  process,  a  helicopter  is  available 
for  substitution  on  the  case  a  helicopter  activity  vector 
is  loaded  to  ensure  the  helicopter's  timely  return  to  its 
home  station.   In  addition,  the  case  vector  is  changed  to 
reflect  the  assignment  of  an  aircraft  and  a  reduction  in 
on-scene  hours  required  is  made.   The  helicopter's  home 
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station  vector  is  changed  to  indicate  the  type  helicopter 
on  an  HC-130  case  and  reduction  in  availability  of  that 
type  helicopter  at  that  particular  station.   If  the  case 
does  not  require  any  further  aircraft  during  the  current 
time  step,  its  action  vector  is  zeroed.   If  sufficient 
HC-130s  are  available  to  fill  all  requirements,  the  substi- 
tution process  is  terminated.   Otherwise  the  process  is 
continued  attempting  to  assign  another  helicopter  on  the 
present  case  being  investigated,  if  necessary,  or  any  other 
potentially  substitutable  cases  and/or  missions  in  the  area. 

Nearly  the  same  procedures  are  followed  for 
attempting  substitutions  on  potentially  substitutable 
missions,  beginning  with  the  lowest  priority  first,  the 
only  difference  being  with  the  assignment  of  HH-52As.   On 
missions,  only  one  HII-52A  need  be  assigned  vice  the  two 
required  for  cases. 

3 .   Insufficient  HC-130  Assignment  Procedures 

When  an  assignment  of  aircraft  is  required  under 
the  decision  rules  outlined  in  section  2  above,  the  type 
of  requirement- -case  or  mission,  the  priority  of  the  require 
ment  and  the  level  of  assignment  desired  are  specified  by 
the  main  program  and  subroutine  ASSIGN  is  called.   ASSIGN 
scans  the  case  or  mission  action  vector  arrays  as  indicated 
and  locates  the  cases  or  missions  requiring  aircraft  under 
the  priority  and  level  of  assignment  criteria  specified. 
If  an  HC-130  is  required  in  an  area  where  one  is  available, 
action  is  initiated  to  make  the  assignment.   In  situations 
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where  aircraft  are  required  in  areas  where  HC- 130s  are  not 
available,  the  requirements  are  tallied  by  areas.   After 
all  requirements  are  tallied,  action  is  initiated  to  assign 
the  IIC - 130s  closest  to  the  case  or  mission  areas  to  the 
individual  cases  or  missions.   This  process  is  continued 
until  all  assignments  of  the  specified  type  have  been  made 
or  there  arc  no  further  IIC- 130s  available.   If  the  former 
situation  occurs  and  more  IIC- 130s  are  available,  the  main 
program  specifies  the  next  requirement  type,  priority  and 
level  of  assignment  according  to  the  decision  rules  and  the 
processing  in  subroutine  ASSIGN  is  reinitiated. 

If  no  further  HC-130s  are  available  and  the 
situation  being  handled  is  other  than  priority  one  SAR 
cases  without  any  aircraft  assigned,  the  assignment  process 
is  terminated.   If  there  are  priority  one  SAR  cases  without 
at  least  one  aircraft  assigned,  attempts  are  made  to  divert 
HC-130s  from  other  SAR  cases  in  the  same  areas  as  the 
subject  cases.   The  procedure  followed  in  attempting  to 
find  HC-130s  that  can  be  diverted  to  the  priority 
one  case  in  question  begins  with  finding  the  lowest 
priority  case  in  the  same  air  station  area  with  more  than 
one  aircraft  assigned.   If  any  or  all  of  the  aircraft  are 
HC-130s  they  are  checked  to  see  if  they  can  reach  the  scene 
of  the  priority  one  case  and  have  at  least  one  hour  on-scene 
When  all  conditions  are  met,  the  HC-130  is  designated  as 
the  aircraft  to  be  diverted  and  action  is  initiated  to 
transfer  the  IIC- 150  to  the  new  case. 
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4.   Selection  of  HC-130  for  Assignment 

During  the  process  of  allocating  IIC- 130s  among 
cases  and  missions,  either  the  main  program  or  subroutine 
ASSIGN  will  select  an  air  station  with  aircraft  available 
as  the  air  station  to  supply  the  aircraft  for  the  case 
or  mission  requirement  being  satisfied.   The  final  selection 
of  the  individual  HC-130  to  be  used  is  performed  by 
subroutine  PLANE.   When  PLANE  is  called  by  either  the  main 
program  or  ASSIGN  it  is  given  the  air  station  that  is  to 
supply  the  HC-130  and  the  air  station  area  in  which  the 
case  or  mission  pickup  point  is  located. 

Subroutine  PLANE  initially  scans  all  HC-130  account- 
ing vectors  to  determine  whether  an  HC-130  at  the  specified 
air  station  is  home  based  at  the  air  station  whose  area 
the  case  or  mission  is  in.   If  so,  the  HC-130  is  checked 
to  see  if  it  is  in  a  "ready  to  fly"  status.   If  it  is,  it 
is  designated  as  the  HC-130  for  the  case  or  mission  require- 
ment being  satisfied.   If  the  HC-130  is  found  to  have  a 
mechanical  discrepancy  on  start-up,  as  determined  earlier 
in  the  main  program,  it  is  placed  in  a  down  status  and  the 
number  of  hours  until  it  is  ready  for  flight  are  determined. 
If  there  are  not  any  HC-130s  from  the  area  of  action  avail- 
able at  the  air  station  which  must  supply  the  HC-130,  all 
HC-130s  at  the  station  are  checked  and  the  first  one  found 
"ready  to  fly"  is  identified  as  the  HC-130  to  be  used.   This 
information  is  then  passed  back  to  the  calling  program  or 
subrout J  ne . 
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5 .   Final  HC-150  Assignment  Action 

Once  the  calling  program  or  subroutine  has  the 
specific  IIC - 1 30  to  be  used,  it  calls  subroutine  FILL  with 
this  information  and  the  case  or  mission  to  which  the  air- 
craft is  to  be  assigned.   Subroutine  FILL  must  ensure  that 
all  relevant  vectors  are  altered  to  reflect  the  appropriate 
usage  of  the  HC-130  specified.   If  the  HC-150  is  being 
diverted  from  one  case  to  another,  the  aircraft's  approxi- 
mate position  is  ascertained  and  its  time  of  arrival  on- 
scene  calculated.   The  losing  case  accounting  vector  is 
changed  to  reflect  its  loss  of  an  aircraft  and  the  subject 
HC-130' s  accounting  vector  altered  appropriately.   The 
time  of  departure  of  the  next  aircraft  for  the  new  case  is 
calculated,  if  required,  and  the  case  accounting  vector 
updated.   If  the  new  case  has  as  many  aircraft  as  it.  requires 
during  the  current  time  step,  its  action  vector  is  zeroed. 
Control  is  then  returned  to  the  calling  program  or  subroutine. 

The  process  for  regular  departures  on  SAR  cases 

primarily  the  same  except  that  the  HC-130  departs  from  a 

fixed  location  station.   If  the  HC-130  is  unable  to  get  to 

the  scene  of  the  case  and  have  at  least  one  hour  on-scene 

it  is  sent,  instead,  to  the  closest  HC-130  air  station  to 

be  refueled.   The  next  HC-150  departure  time  required  for 

the  case  is  determined  conditioned  on  the  type  of  case 

and  time  of  day.   Whether  the  aircraft  can  go  directly  to 

scene  or  not,  if  it  departs  from  other  than  the  air  station 

closest  to  the  scene,  the  extra  flight  hours  involved  are 

calculated  and  tallied. 
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In  the  situation  where  HC-130s  are  being  sent  on 
missions,  the  aircraft  and  mission  accounting  vectors  are 
changed  to  indicate  the  return  time  of  the  aircraft  and  the 
fact  that  it  is  on  the  specified  mission.   The  aircraft  is 
considered  to  be  gone,  for  accounting  and  operational  pur- 
poses, until  termination  of  the  mission.   If  the  aircraft 
departs  from  other  than  the  air  station  closest  to  the 
mission  pickup  point,  the  extra  flight  hours  involved  are 
calculated  and  tallied.   If  the  subject  mission  has  all 
the  aircraft  assigned  that  it  requires,  the  mission  action 
vector  is  zeroed. 

If  an  HC-130  is  being  sent  from  one  air  station  to 
its  home  station  the  enro.ute  time  is  calculated  and  its 
accounting  vector  changed  appropriately.   The  enroute 
hours  are  considered  extra  flight  hours  and  are  tallied 
accordingly. 

F.   UNANSWERED  REQUIREMENTS  RESOLUTION 

After  all  possible  helicopter  substitutions  and  HC-130 
assignments  have  been  made,  the  case  and  mission  action 
vectors  are  scanned  to  see  if  any  requirements  for  aircraft 
were  not  filled.   For  cases  which  did  not  receive  the 
required  aircraft,  new  departure  times  are  computed  depending 
on  the  type  and  location  of  the  case  and  time  of  day. 

For  mission  requirements  that  were  not  filled,  the 
specific  missions  are  checked  to  see  if  they  can  be  held  for 
a  later  take-off  time.   If  thev  cannot  be  held  and  no 
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aircraft  have  been  assigned  to  them  they  are  cancelled 
and  their  required  mission  flight  hours  tallied  as  lost. 
If  they  cannot  be  held  but  have  some  aircraft  assigned,  a 
new  take-off  time  is  not  determined  for  them.   In  this 
situation  a  prorated  portion  of  the  mission  flight  hours 
is  tallied  as  lost.   Missions  that  can  be  held  have  new 
take-off  times  computed  based  on  the  time  of  day  and 
maximum  number  of  hours  they  can  be  held.   If  possible,  the 
new  take-off  times  are  scheduled  for  the  next  regular 
mission  take-off  time.   The  accounting  vectors  of  missions 
being  held  are  changed  to  show  a  reduced  number  of  hours 
that  they  can  be  held  and  the  newly  determined  take-off 
time. 

G.   STATION- TO- STATION  SHIFT  AND  RON  DETERMINATION 

If,  after  all  required  aircraft  assignments  have  been 
made,  an  HC-130  is  found  to  be  at  an  air  station  other  than 
its  home  station  between  0800  and  1500  hours  and  is  in  a 
"ready  to  fly"  status,  it  is  sent  to  its  home  station.   The 
plane  is  identified  and  subroutine  FILL  is  called  to  pro- 
vide for  the  transfer. 

During  the  0100  time  step  the  aircraft  accounting 
vectors  are  scanned  and  any  HC-130  found  at  an  air  station 
other  than  its  home  station  is  considered  to  be  remaining 
overnight  (RON).   The  RONs  are  tallied  both  by  the  current 
station  of  the  HC-130  as  well  as  its  home  air  station. 
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H.   TIME  STEP  COMPLETION 

Following  the  station- to-station  shift  actions  and  the 
RON  determinations,  all  mission  and  case  action  vectors 
are  zeroed.   All  HC-130s  that  were  in  a  "down  if  called" 
or  "down  due  to  weather"  status  are  returned  to  a  "ready 
to  fly"  status.   The  total  time  step  counter,  time  of  day, 
and  day  of  week  calendars  are  updated  as  required.   If 
the  required  number  of  replication  years  have  been  completed, 
the  program  shifts  to  calculate  and  publish  its  final  sta- 
tistics and,  if  required,  begin  start-up  runs  for  the  next 
aircraft  distribution. 

If  the  total  number  of  replication  years  have  not  been 
completed,  the  simulation  checks  to  see  if  a  replication 
month  has  been  completed.   If  so,  the  monthly  variable 
parameters  are  changed  and  the  statistics  for  the  month 
just  completed  are  tallied.   At  the  beginning  of  each 
March,  an  HC-130  from  the  most  northern  potential  HC-130 

ir  station  with  HC-130s  assigned  is  deployed  for  the 
International  Ice  Patrol  and  the  appropriate  tallies  of 

ission  and  extra  flight  hours  made  depending  on  the  air- 
craft assignment  distribution  being  run.   At  the  beginning 
of  August  in  each  year,  the  deployed  HC-130  is  returned 
from  ice  patrol  to  its  home  station. 

At  the  end  of  each  replication  year,  the  year  counter 
is  advanced  and  the  total  statistics  for  the  year  just 
completed  are  gathered.   At  the  end  of  the  tenth  year, 
the  number  of  replication  years  required  to  satisfy  the 
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confidence  level  and  level  of  uncertainty  specified  by 
the  operator  are  determined.   The  simulation  then  proceeds 
to  complete  the  required  number  of  replications. 

I.   SIMULATION  OUTPUT 

At  the  conclusion  of  the  required  number  of  replication 
years,  the  month  and  year  means  of  the  following  statistics 
are  produced: 

(1)  Time  HC-130s  down  due  to  mechanical  discrepancies. 

(2)  Mission  flight  hours  not  covered. 

(3)  SAR  on- scene  flight  hours  not  covered. 

(4)  Extra  flight  hours  flown. 

(5)  RONs  at  each  proposed  HC-130  air  station. 

(6)  RONs  from  each  proposed  HC-130  air  station. 

(7)  Total  RONs. 

In  addition,  the  following  statistics  are  provided: 

(1)  Variances  of  mission  flight  hours  not  covered,  SAR 
on-scene  hours  not  covered,  extra  flight  hours  flown, 
and  total  RONs  per  year. 

(2)  Mean  numbers  of  SAR  cases,  SAR  on-scene  hours 
requested,  missions,  and  mission  flight  hours 
requested  per  year. 

(3)  Mean  percentage  of  total  possible  flight  hours 
spent  in  down  status  per  year. 
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REAC    VALUES     FOR    VARIABLE    INPUT    PARAMETERS 
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FORMAT 

READ( 5 

FORMAT 

READ(5 

LAC(2) 

FORMAT 

READ(5 

CCFAB( 

FCPf-'AT 

READ( 5 

PTAD 

FORMAT 

READ(  5 

ISA 

FCRMAT 

READ(5 

FCPMAT 

READ (5 

FORMAT 

READ(5 

FORMAT 

READ( 5 

FCPMAT 

READ( 5 

F  C  P  M  AT 

PEA0(5 

FORMAT 

READ(5 

FORMAT 

READ(5 

FORMAT 

READ(5 

FCRMAT 

READ(5 

FORMAT 

READ(5 

FCRMAT 

READ(5 

FCRMAT 


70  00)    NSCPY,NNSCPY,N,NSTUP,NRUNS,ALCN,ALATN 

51  10,2F10 .2 ) 

7001)     GFA,CF3,CFC,SP, IS1 , IS2 

4F10.2,2I101 

70  02)     IS3,TCPD(1),TCPC(2),TCPD(3),LAC(1), 

LAC(3) ,PGSC 

I10,3F10 .2,31  10,F10.2) 

70C5)     CDFAA(l)  ,C0FAA(2)  ,CCFAA(3),CCFAA(4), 

)  ,CDFAB(2)  ,  CDF  ABO)  ,CDFG 

8F10.2) 

70 C6)     (PPRI  (J)  ,J  =  1 ,3) ,PHCLD1,PH0LC2,FHCLD,PSC, 

8F10.2) 

7007)     (PNPSC(J),J=l,3),(PSCL(U,L=l,3),FSUBMt 

7F10.2  ,110) 

70C8)     (PUP( J)  ,J  =  1,8) 

0F10.2) 

70C9)     PUP(9)  ,PUP(10)  ,PUP(11) 

OLIO        Ol 

7109)     (QNDG2U  )  ,J=1,  6) 
6F10.2) 

7010)  (QNDG3JJ  ),J=1,8) 
8  F 1  0 . 2  ) 

7011)  (QNDG3U)  ,J=9,15) 
7  F 1 0  ,  2  ) 

7012)  LQC(1  )  , (L0C( J)  ,J=3  ,6) 
51  10) 

7013)  (QNDGK  J  ),  J=l,4)  ,  PMECICPSSC 
6F1C.2) 

70  14)  NPN,NPG,NPS 
3110) 

7015)  (SDR(M)  ,M=1,5)  ,PPDR,IS5 
6F10.2, I  10) 

7016)  ( PSDkR(J)  ,J  =  1  ,4)  ,PPCIF 
5F10.2) 

7017 )  PPDS, (SPDF(J) , J=l, 5) 
6F10.2) 

7018)  NSNA,NSCA,NSSA,I S6 
4110) 


SET  UP  CUMULATIVE  DISTRIBUTION  FUNCTICN  CUTOFFS 
FOR  VARIABLE  INPUT  PROBABI L I T Y  D I STR  I  BLT IONS 

TCP( l)=TCPD( 1) 

TCP(2 ) =  TCP(1H-TCPD(2) 

TCP(3)=TCP(2)+TCPDO) 

CCFA( l)=Cur AA{ 1) 

CDFA(2) =CDFA(1)+CDFAA(2) 
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002 


003 


004 


0L6 


017 


C 
C 
C 
C 

c 
c 


7019 
018 


7020 

7021 
021 


CDFA( 3) =CDFA(2)+CDFAA<3) 
CCFA(4)=1  .0 
CDFBC1 ) =CDFABil ) 
CDFB(2)=CDFB(1)+CDFAB(2) 

C  C  F  B  (  3  )  =  1  .  0 

ppi  m  =  ppRi  (i ) 

PRI(2)=PRI(  D+PPRI  (2) 

PRI  (3 )  =  1.0 

PPSCd  )  =PNPSC<1  ) 

PPSC(2)=PPSC(1)+PNPSC(2) 

PFSC(3) =1  .0 

PfSC( 1 ) =PSCL( 1) 

FMSC(2)=PMSC(  U+PSCL  (2) 

PMSCC3) =1.0 

LGC(2)=LAC(  1) 

LCC(7)=LAC(2) 

LCC(8)=LAC  (3 ) 

QNDK  1)=0NDG1(  1) 

CKD1(2)=QND1<1)+GNDG1(2) 

QNDK3)  =1.0 

SDkP( 1)=PSDKP( 1)*PP0IF 

SDWR(2) =SDWR(1)+PSDWR(2)*PPDIF 

SDWR(3)  =  SDt*R(21  +  PSDWR(3)*PPClF 

SCWR(4)=PPDIF 

PFUP(l) =PUP(1 ) 

DO  002  L=2tl0 

FPUP(L)=PPUP(L-1)+PUP(LJ 

CONTINUE 

PPUP(  11  )  =  i.O 

CND2( 1 ) =QNCG2(1  ) 

DO  003  L  =  2,5 

QND2(L)=QND2(L-1)+QNDG2(L) 

CCNTINUE 

QND2( 6) =1.0 

Ci\C3(  1)=QNDG3(  1) 

DC  004  L=2,14 

QND3i  L)=QND3(L-i)+QN0G3iL) 

CCNTINUE 

CND3( 15)=1  .0 

TSDR(  1)=SDR(  D^PPDR 

DC  016  1=2,4 

TSDR(  I  )  =TSDR(  1-1 )  +  (SDR( I)*PPDR) 

CONTINUE 

TSCR(5 ) =PPDR 

TSPDF(  1  )=SPDF( 1) 

DO  017  1=2,4 

TSPDF( I )=TSPDF( 1-1 }+SPDF( I ) 

CONTINUE 

TSPDF(5  )=1.0 

TALLY  TOTAL  NUMBER  CF  AIR  STATIONS  WFICF  PAVE  BEEN 
SEGREGATED  INTO  GROUPS  CHARACTERIZED  BY  BEING 
WITHIN  300  NM  OF  EACH  C-130  STATION  AREA.   REAL 
STATION  DATA 

NTSTA=NSNA+NSCA+NSSA 

DC  018  I=1,NTSTA 

READ(5,7019)  ( NST A ( I , M ) ,M=  1  ,  12 ) 

FORMAT ( 1215) 

CCNTINUE 

READ  AND  STORE  MONTHLY  VARIABLE  INPUT  PARAMETERS 

DC  021  1=1,12 

READ(5,  702C)  (TMONTHd  ,  J)  ,  J  =  l  ,8  ) 

FORMAT ( 8F  10. 2) 

READ(5,7021)  (T MONTH  ( I , J )  , J  =  9 ,  1  4  ) 

FCRMATi  6F10.2) 

CCNTINUE 

READ  CONFIDENCE  LIVIT  AND  UNCERTAINTY  LEVEL 
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RfcAD(5,7022)  CONF, ERROR 
7022  FORMAT* 2F10. 2) 
NRUN=1 

WRITE  VALUES  OF  SELECTED  INFLT  PARAMETERS 
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WRITE (6 
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WRITE (6 
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W  R  1 T  E  ( 6 

INSTA(  I  , 
CCKT  INU 
IFtL.EQ 
L  =  L+1 
I  F(L.EQ 
LL=M+1 
M=M+NSC 
GC  TO  7 
LL=M+1 
M=M+NSS 
GC  TO  7 
CCNTINU 
W  R  I  T  E  (  6 
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NSCPY,  (TCPD( J)  ,J=1  ,3)  ,ALON.ALATN',PSSC 

(CDFAA(J),J=1,4),(CDFAB(J),J=1,3),CDFC 

NNSCPY,SP 

(PPRI(J),J=1,3) , PHCLD1,PH3LC2,PH0LD, 


,9026 

),J=1, 

,9027) 


NPSC(J)  ,J  =  1  ,3)  ,  (PSCL(J)  ,J=1,3),PSUEN 

P(  1),PUP(7)  , PUP ( 2)  ,PUP(  8)  ,PLP(3) 

P(iO)  , PUP (5  )  ,PUP(  1 1  )  ,PUP( 

NDGKJ)  ,J  =  1  ,4)  ,  CCNDG2(J)  . 

) 

DR,PPDIF,PPDS 


(  P 
)  PU 
)  ,PU 
)  (Q 
It  15 
9  025)  PP 

)  ( SOR( J) ,J=i,5),(PSDUR(J),J=l,M 
,5) 


6) 
J=l»6) 


005 


006 


I=LL,M 
,90  28  )  L, NSTACI ,3) ,NSTA(  I,4),NSTA(  1,7), 
10)  ,NSTA( 1,12) 
p 

.3)  GO  TO  7540 

.3)  GO  TO  7530 

A 
510 


A 

510 

F 

,9029) 
DC  7550  1=1,12 

,9030)  I , ( TMCNTHU , J) ,J=1 ,11) 


WRITE (6 

CCNTINU 
WPITF(6 


,9031)  NSTUF, CONF, ERROR 
,9032)  NRUN,NPN,NPC,NPS 


2ERC  ALL  VECTORS  IN  CASE  ACCOUNTING  VECTOR  ARRAY 


DC  001  1=1, 
NCASU  )  =0 

CONTINUE 


850 


ZERO  ALL 
ARRAY 


VECTORS  IN  MISSION  ACCOUNTING  VECTOR 


DC  005  1=1 ,1600 
NMISStI )=0 

CONTINUE 

ZERO  ALL  VECTORS  IN  MISSION  ACTION  VECTCP  ARRAY 

DC  006  1=1,20 
NMISA(  I  ,1)  =0 
NMISA( I ,2)=0 
NMISA( I ,3) =0 
CONTINUE 

ZERC  ALL  VECTORS  IN  CASE  ACTICN  VECTCR  ARRAY 

DC  007  1=1, 10 
NCASA( I ,1) =0 
NCASA( I  ,2)- 0 
NCASA( I , 2)=0 
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007  CCNTINUE 


C 

c 

c 
c 


c 
c 
c 
c 

c 
c 


IN  C-130  AIRCRAFT  ACCCLNTING 


C 
C 

C 


c 
c 
c 
c 


c 
c 
c 
c 


ZERO  ALL  VECTORS 
VECTOR  ARRAY 

DO  009  1=1,  15 

DC  008  J  =  l ,16 
NPLANE(  I  , J)=0 

008  CONTINUE 

009  CCNTINUE 

INITIALIZE  C-L30  AIRCRAFT  ACCOUNTING  VECTCRS  MTH 
AIRCRAFT  HOME  STATION  AND  FIRST  POINT  OF  DEPARTURE 
DEPENDING  ON  THE  NUMBER  OF  C-130S,  IF  ANY,  ATTACH- 
ED TO  EACH  3F  TFE  THREE  C-130  STATIONS 

IF(NPN.EQcC)  GO  TO  Oil 

DC  OLO  I=i,NPN 

NFLANE(  I,l)=l 

NPLANE( I,9)=l 

CCKTINUE 

NNFN=NPN+1 

NNPC=NNPN+NPC-1 

IF(NPC.EG.O)  GO  TO  013 

DC  012  I=NNPN,NNPC 

NPLANEt I, 1)  =  2 

NFLANE(  1,9  )  =  2 

CONTINUE 

IF(MPS.EQ.O)  GO  TO  015 

NNFC=NNPC+1 

NNPS=NNPC+NPS-1 

DC  014  I=NNPC,NNPS 

NPLANE( 1,1) =3 

NPLANEC  1,9)^3 

CONTINUE 

CCNTINUE 

ZERO  HELICOPTER  ACTIVITY  ACCCUNTING  VECTCR  ARRAY 

DC  020  1=1,20 
DC  019  J=i,6 

NHACT( I  ,  J) =0 

019  CCNTINUE 

020  CCNTINUE 

CONVERT  START  UP  DAYS  AND  TOTAL  REPLICATICN  YEARS 
TO  TIME  STEP  VALUES 

NSTUP=NSTUP~24 

NSTUPK=NSTUP 

N=N*8760+NSTUP 

ZERO  ACCOUNTING  TALLIES  NOT  EFFECTFD  DLRING  START 
UP  RUN 


010 
Oil 


012 
013 


014 

01  b 


XCURSS=0.0 

NDCWS=0 

NNHLS=0 

NSFLS=0 

NSHLYS=0 

NDOWYS=0 

NNHLYS=0 

XCURYS=0.0 

NNHSS=0.0 

NSFSS=0  .0 

XCSS=0. 0 

NRCNSS=C.C 

CC  02  2  1=1, 

NCNAS( I )=0 

NCNFS(  I  )  =  0 

NCNAY3(  I  >=0 

NCNFYS( I J=0 
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022    CONTINUE 


C 

c 
c 
c 
c 


022 
024 


c 

c 

c 
c 


c 
c 
c 
c 
c 


05C 


060 


DC  024 
NDCWTC I 
NMFLT(  I 
NSHLTi  I 
XCURSK 
DC  023 
NCNATU 
NONFT(  I 
CCNT  INUE 
CONTINUE 


12 


1=1 1 

)=0 

)=0 

)=0 

I ) =C. 0 

M=l,3 

,M)  =0 

»  M  )  =  0 


INITIALIZE  RANDOM  NUMBER  SEEDS,  TALLV  TCTAL  NUMBER 
OF  C-L30S  ASSIGNED  TO  C-130  STATIONS  ANC  SET  RAN- 
DOM NUMBER  GENERATCR  CONSTANT  VALUES 

IA=ISI 

ie=is2 

IC=IS3 

ID=IS4 

IE=IS5 

IF=1S6 

NPIS=NPN+NPC+NPS 

Z=2.328306E-10 

K=16807 

INITIALIZE  CALENDER  COUNTERS  AND  VARIABLE  VALUES 
REQUIRED  FOR  PROGRAM  START  UP 

NCTS=l 

NDAY=1 

NDAYTI=1 

NSPNST=0 

NRTN=0 

NI SSN  =  0 

NACE=0 

N5CTD=0 

NSCT=5 

NRNSCT=8 

NNSCFB=1 

NNPTS=12 

NCAYPT=NNPTS 

KNSCAL=NNPTS-2 

SPECL=( 24. 0/22.0)*SP 

NNSCTD=0 

NCSC=0 

NSTUPK=NSTUP 

ZERO    ACCOUNTING    TALLIES     EFFECTED    DURING    START    UP 
RUN     WHICH    MUST    BE     ZEROED    AGAIN    FOLLOWING    START    UP 
PERIOD 

CCNT INUE 

DC    060     1=1,3 

NPCNAi I )=0 

NPONFC I )=0 

CCNTINUE 

NMhRST=C 

NFLYTI=0 

NCCWTI=0 

NUMFHR=C 

NUSFHR=0 

NYEAR=0 

NM  =  0 

NC  =  0 

NCSHNC=0 

XHRST=0.0 

NMFLST=0 

NCCSOO 

NSSMSC=0 

NSPL=0 

NRNSC=0 
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c 
c 
c 
c 
c 
c 
c 


IF  JUST  BEGINNING  START  UP  RUf\,  GO  TC  SET  MONTHLY 
VARIABLE  INPUT  PARAMETERS.   IF  START  LP  HAS  BEEN 
COMPLETED,  GO  DIRECTLY  TO  OCCURRENCE  TIME  PROGRAM 
SEGMENT  AS  MONTHLY  VARIAbLE  IKFUT  PARAMETERS  AND 
OCCURRENCE  RATES  HAVE  ALREADY  BEEN  SET 


IFUMSTUP.  EQ.O) 
GC  TO  5  700 

CALCULATE 
FOR  MONTH 


GO  TO  100 


OCCURRENCE  RATE  D E TERMI NA T I CN  FACTORS 
BEING  ENTERED 


080  TSCPFW=TSCPYA/13. 0 

IF(NPSDIW.FQ.O)  GO  TO  095 

A£A=FSCDPD*TSCPFW 

AAA=CFAAAAA 

BAA=FL0AT(NPSDIW*96)/AAA 

1FCNPSDIK.EQ.7)  GC  TO  098 
095  AAB=( l-PSCDPD)*TSCPFW 

AAE=CF  P. *AAB 

BAB=FLOAT(  (7-NPSDI  M*96)/AAB 
098    AB=TMPYA/13.0 

AB=CFC-AB 

BB=672.0/AB 


C** 

C** 
C** 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


**  OCCURRENCE  TIME  PROGRAM  SEGMENT  **** 


c 
c 

C 
C 

c 

c 

C 


THE 

GENE 

RENC 

OCCU 

THE 

DAYS 

TICU 

OF  M 

REGU 

ARE 

SARI 

FOR 

INIT 

DETE 

CUrN 

MISS 

VELO 

THE 

SION 

HAVE 


FUNC 
RATE 
E  TI 
RREN 
WEEK 

OR 
LAR 
ISSI 
LAR 
TO  D 
LY  A 
REGU 
I' ATE 
RMIN 
CE  0 
ION 
PED 
PROC 
S  FO 

BEE 


TION 
THE 
MES. 
CE  R 
THE 
ROUT 
MONT 
ONSt 
MISS 
EPAR 
REG 
LAR 
D  IN 
ED  A 
F  DE 
IS  E 
IMME 
ESS 
P  TH 
N  DE 


OF  T 

SAR 

IN 

ATES 

PROG 
INE  S 
H  THE 

THE 
IONS 
T  AT 
ULAR 
M  1  S  S  I 

THE 
T  THE 
TERM  I 
NCCUN 
DIATE 
IS  CO 
E  NEX 
TERMI 


HE  OCC 
CASE  A 
THE  IN 
ARE  DE 
RAM  IS 
AR  OCC 

PROGR 
PRCGRA 
AND  SP 
TIME  0 
MISSIO 
ONS,  T 
NEXT  S 

SAME 
NING  R 
TERED 
LY  I  N 
NTINUE 
T  REGU 
NED. 


URRENC 
ND  NON 
STANCE 
P END  EN 
IN;  P 
URREKC 
AM  IS 
M  DIFF 
ECIAL 
F  CALL 
N  SCFE 
HE  NUM 
TANDAR 
TIME  . 
EGULAR 
ITS  CF 
SL'BROL 
D  UNTI 
LAR  MI 


E  TIME 
-SAR  MI 

CF  SAR 
T  ON  WH 
EAK  SAR 
E  DAYS 
IN.  IN 
BRENTI A 
N  I  S  S I  0  N 

RATHER 
CUE  ED  T 
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C  TAKE 
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MISSIO 
ARACTER 
TINE  MI 
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SEC 
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CA 
AT 

CC 
F  C  R 

TH 
TES 
S  ( 

TF 
AKE 
MI  S 
OFF 
RIN 
NS, 
1ST 
CA 
EGU 
AKE 


NEKT 
ON  0 
SES, 
FCRT 
CURR 

THE 
E  IN 

BET 
THCS 
AN  N 

CFF 
SI  CN 

T  I M 
G  TH 

A  S 
ICS 
AND 
LAR 

CFF 


I  S  TC 

CCUR- 
CASE 

!  0  N  C  F 

ENCE 
P  A  R  - 

STANCE 

WEEN 

E  THAT 

ECES- 
TIME). 

S  TC  BE 

E  ARE 

E  SE- 

PECIAL 

ARE  CE- 

THEN 

MIS- 
TIME 


1 


IF  A  CASE  CALL  IS  NOT  BEING  RECEIVED  THIS  TIME 
STEP  GO  TO  DETERMINE  IF  A  MISSION  OR  MISSIONS  ARE 
TO  BE  INITIATED  THIS  TIME  STEP  -  OTHERWISE  CONTIN- 
UE AND  REGISTER  FACT  THAT  A  CASE  IS  TC  BE  DEVELOP- 
ED THIS  TIME  STEP 

00  IF(NSCT.NE.NCTS)  GO  TO  200 

NSCTD=0 
C5  NSCTD=NSCTD+I 

IF  NOT  ON  A  PEAK  RATE  CASE  CAY  GO  TO  TALLY  A  NON- 
PEAK  RATE  CASE 

IF(NDAY.GT .NPSDIW)  GO  TC  107 

ON  A  PEAK  RATE  CASE  DAY  SO  TALLY  A  PEAK  RATE  CASE 

NSSMSC=NSSMSC+1 
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L07 

1C8 


C 

c 
c 
c 
c 

c 


c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 

c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


L1C 


120 
121 


122 


210 

220 


GC  TO  108 

N0CSC=N0CSC+1 

CONTINUE 

IA=IA*K 

RX=0.5+FL0AT(IA)*Z 

DETERMINE  NUMBER  OF  TIME  STEPS  UNTIL  N E * T  CASE  AT 
OCCURRENCE  RATE  WHICH  CORRESPONDS  TO  TYPE  DAY  ANC 
MONTH  THE  PROGRAM  IS  IN;   PEAK  RATE  CR  ISCN-PEAK 
RATE  CASE  DAY 


IF(NDAY.GT.NPSDIW)  GO 
NSNSC=-BAA*ALOG(RX ) 
GC  TO  120 
NSNSC=-BAB*ALOG(RX) 


TO  110 


IF  NUMBER  OF  TIME  STEPS  UNTIL  NEXT  CASE  IS  FOUND 
TO  BE  LESS  THAN  ONE  AND  ON  A  NCN-PEAK  P/ITE  DAY, 
MAKE  THE  TIME  STEPS  TO  NEXT  CASE  EQUAL  TO  ONE, 
OTHERWISE  INCREASE  NUMBER  OF  CASES  TC  EE  DEVELOPED 
THIS  TIME  STEP  BY  ONE  AND  DETERMINE  TIPE  STEPS  UN- 
TIL NEXT  CASE  OCCURRENCE 

IF(NSNSCEQ.O)  GO  TO  121 
GC  TO  123 

IF(NDAY.LE.NPSDIW)  GO  TO  105 
NSNSC^l 

RECORD  TIME  STEP  OF  NEXT  CASE  OCCURRENCE 

NSCT=NSNSC+NCTS 

IF  REGULAR  MISSIONS  ARE  TO  BE  DEVELOPED  AND  IN- 
ITIAL ACTION  TO  BE  TAKEN  THIS  TIME  STEF  TFEN  CON- 
TINUE TO  DETERMINE  TIME  OF  NEXT  MISSICN  OCCURRENCE 
-  IF  NOT  GO  TO  DETERMINE  WHETFER  SUBROUTINE  MICA 
MUST  BE  CALLED  CR  NOT 

200  IF(NRNSCT.NE.NCTS)  GO  TO  300 

RECORD  THE  NUMBER  OF  REGULAR  MISSIONS  TC  BE  DEVEL- 
OPED AND  INITIATED  THIS  TIME  STEP  AS  FOLND  DURING 
THE  LAST  TIME  STEP  IN  WHICH  REGULAR  MISSIONS  WERE 
TO  BE  DEVELOPED  AND  INITIATED.  TALLY  THE  REGULAP 
MISSION,  ZERO  THE  COUNTER  FOR  REGULAR  MISSIONS  TO 
BE  DEVELOPED  AND  INITIATED  DURING  THE  NEXT  REGULAR 

THE  NEXT 
£  MISSIGN 


TAKE  OFF  TIME,  RECORD  THE  TIME  STEP  OF 


REGULAR  MISSICN  TAKE  OFF  T I  HE  IN  WHICH 
IS  TO  BE  PERFORMED  AS  FOUND  EARLIER. 

NNSCTD=NNSCFB 
NRNSC=NRNSC+NNSCFB 

NNSCFB=0 
NPTS=NNPTS 

IF  THE  TIME  STEP  OF  THE  MISSION  CALL  IS  GREATER 
THAN  THE  NEXT  REGULAR  MISSICN  TAKE  OFF  TIME  WITH 
MISSION(S)  TO  BE  PERFORMED  GG  TO  DETERMINE  THE 
NEXT  REGULAR  MISSICN  TAKE  OFF  TIME  AFTER  THE  TIME 
STEP  OF  THE  REGULAR  MISSION  CALL  BEING  CONSIDERED 
OTHERWISE,  CONTINUE 

IF(NNSCAL.GT.NPTS)  GO  TO  240 

IE=IB*K 

RX=0.5+FL0AT(IB)*Z 


DETERMINE  WHETHER  THE  MISSICN  CALL 
ED  IS  A  SPECIAL  MISSION  CR  NOT,  IF 


BEING  CONSIDER- 
SO,  GO  TO  SPE- 


CIAL MISSION  SECTION  -  OTHERWISE,  CCNTIhUE 
IF(RX.LT.SPECL)  GC  TO  230 
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c 
c 
c 
c 
c 
c 
c 


c 
c 

c 
c. 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 

c 
c. 
c 
c 
c 


c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 


221 


222 


22  C 


222 


234 


236 
238 


HAVE  A  REGULAR  MISSION  TO  BE  INITIATED  AT  THE  NEXT 
REGULAR  MISSION  TAKE  Off  TIME,  RECORC  TIME  STEP 
WHEN  NEXT  REGULAR  MISSION(S)  ARE  TO  B F  CEVELTPEC 
AND  INITIATED.   INCREASE  TALLY  FOR  MISSIONS  fc  BE 
INITIATED  AT  NEXT  REGULAR  TAKE  CFF  TINE  AND  DETER- 
MINE NUMBER  OF  TIME  STEPS  UNTIL  NEXT  MSSICN  CALL 

NRNSCT=NPTS 
NNSCFB=NNSCFB+1 

T  p  =  T  R  "  K 

RX=0.5+FLOAT( IB)*Z 
NSNNSC=-BB*ALOG(RX) 


IF  NUMBER  OF 
AT  LEAST  ONE 


TIME  STEPS  TO  NEXT  MISSICN 
MAKE  IT  EQUAL  TC  ONE 


CALL    NOT 


IFCNSNNSC 
GO  TO  222 
KSNNSC=1 


0)  GC  TO  221 


RECORD  TIME  STEP  OF  MISSION  CALL  AND  GC  TO  DETFR- 
MINE  IF  IT  IS  PRIOR  TO  NEXT  REGULAR  MSSICN  TAKE 
OFF  TIME  BEING  CONSIDEREC  OR  NCT 


NNSCAL=NNSCAL+NSNNSC 
GC  TO  2  10 

HAVE  A  SPECIAL  MISSION.  RECORD  TIME 
CALL  AND  THUS  ITS  TIME  OF  ACTICN  AND 
A  SPECIAL  MISSION  OR  REGULAR  MISSION 
WHETHER  THE  TIME  STEP  OF  THE  CALL  IS 
A  REGULAR  MISSION  TAKEOFF  TIME 


STEP  OF  ITS 
TALLY  EITHER 

DEFENDING  ON 
THE  SAME  AS 


NSPNST-NNSCAL 

IF(NNSCAL.EQ.NPTS) 

NSPL=NSPL+1 

GC  TO  234 

NRNSC=NRNSC+1 


GO  TO 


DETERMINE  NUMBER  OF  TIME  STEPS  UNTIL  THE  NEXT  MIS- 
SION CALL  INSURING  THE  VALUE  IS  EQUAL  TC  CR  GREAT- 
ER THAN  ONE  AND  RECORD  THE  TIME  STEP  OF  THE  NEXT 
MI  SSI.ON  CALL 


ie=i8*K 

RX=0.5+FL0AT( IB)*Z 

NSNNSC=-6B-AL0G(RX) 

IF(NSNNSC.EQ.O)  GO  TO 

GO  TO  238 

NSNNSC=1 

NNSCAL=NNSCAL+NSNNSC 


236 


CALL  SUBROUTINE 
MISSION  CALL  TO 
IATELY 


MICA  WITH  THE  TIME  OF  THE  SPECIAL 
HAVE  THE  MISSION  DEVELCPED  IMMED- 


CALL  MICA 


THE  SPECIAL  MISSION  HAS  BEEN  DEVELOPED  AND  ITS 
MISSICN  VECTOR  LOADED.   GO  TC  HANDLE  THE  MISSION 
CALL  WHICH  WAS  GENERATED  JUST  PRIOR  TC  CALLING 
SUBROUTINE  MICA  TO  DEVELOP  THE  SPECIAL  MSSICN 


GO  TO  210 


THE  TIMF  STEP  OF  THE  MISSION  CALL  JUST  GENERATEC 
IS  GREATER  THAN  THE  TIME  STEP  OF  THE  REGULAR  MIS- 
SION TAKE  OFF  TIME  FOR  WHICH  MISSIONS  ARE  BEING 
TABULATED  F^R  DEVELOPMENT.   DETERMINE  ThE  NEXT 
REGULAR  MISSION  TAKE  0PF  TIME  STEP  IMMEDIATELY 
CC  '      G  THC  TIME  STEP  OF  THE  MISSION  CALL  JL'CT 
GENERATI 
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24C 


C 

c 
c. 
c 
c 
c 
c 
c 


c 
c 
c 


241 
242 
243 
244 
245 
246 
247 
248 
25C 


251 

252 
2  5  3 
2  54 
255 
256 
257 
258 
26C 
27C 


280 


NCUMA=NNS 

I  Ft  NDAYPT 

IFtNDUMA. 

IF(NDUMA. 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

NNPTS=NNP 

GC    TO    270 

NNPTS=NNP 

GC    TO    270 

NNPTS  =  Nf\P 

GO    TO    2  60 

NNFTS=NNP 

GC    TO    270 

NNPTS=NNP 

GC    TO    260 

NNPTS=NNP 

GO    TO    2  70 

NNPTS=NNP 

GC    TO    260 

NNPTS=NNP 

GC    TO    2  70 

NNPTS=NNP 

GC    TO    260 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

IFfNDUMA. 

I  Ff NDUMA. 

IFfNDUMA. 

IFfNDUMA. 

NNPTS=NNP 

GO    TO    2  60 

NNPTS=NNP 

GC    TO    2  60 

NNPTS=NNP 

GC    TO    270 

NNPTS=NNP 

GC    TO    260 

NNPTS=NNP 

GC    TO    270 

NNPTS=NNP 

GC    TO    2  60 

NNPTS=NNP 

GC    TO    270 

NNPTS=NNP 

GC    TO    2  60 

NNFTS  =  Nf\P 

GO    TO    2  70 

NCAYPT=8 

GC    TO    280 

NCAYPT=  12 


CAL-NPTS 
.EQ.12)     GO    T 
LE.4)    GO    TO 
LE.24)     GO    TO 


LE.28) 
LE.48) 
LE.52) 
LE.72) 
LE.76) 
LE.96) 
TS+100 

TS+4 

TS  +  24 

TS  +  28 

TS+48 

TS+52 

TS+72 

TS  +  76 

TS+96 

LE.20) 
LE.24) 
LE.4-4) 
LE.46) 
LE.68) 
LE.72) 
LE.92) 
LE.96) 
TS+116 

TS  +  20 

TS  +  24 

TS+44 

TS+48 

TS  +  68 

TS  +  72 

TS+92 

TS+96 


GO 
GO 
GO 

GO 
GO 
GO 


GC 
GO 
GC 
GO 
GO 
GC 
GO 
GO 


TO 
TO 

TO 
TO 
TO 
TO 


0    250 

24  1 
242 
243 
244 
245 
246 
247 
248 


TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 


251 
252 
253 
2  54 
255 
256 
257 
258 


IF    THERC    HAVE    NOT     BEEN    ANY     REGULAR    MISSICNS    RE- 
CORDED   FOR    THE    NEW    REGULAR     MISSION     STANCARD    TAKE 
OFF    TIME    JUST     DEVELOPED    RECORC    THE    TINE     STEP    OF 
THE     TAKE     OFF     TIME    AND    GO    TO    DETERMINE     IF    MORE    MIS- 
SION   CALLS    RECEIVED    PRIOR    TO    THE    TAKE     CFF    TIME    - 
OTHERWISE,    CONTINUE 


IFfNNSCFB.GT 
NPTS=NNPTS 
GC    TO    2  20 


0)     GO    TO     300 


IF    THE^~    Ai  '     '•  ;:  5  IONS     OR    CASES 
THIS    TIME    STEP    CALL    SUBROUTINE 


TO    8  p    CE VcLOPcD 
MICA~TC     Ll 
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c 

c 
c 


c 
c 
c 
c 
c 
c 


THEM  ■ 
SCc  NT: 


OTHERWISE 
t-^UR  T  IMES 


GO  TO  UPDATE  CASE  REGLIRED  ON- 


300  IF(NNSCTD.EQ.O)  GG  TO  305 

CALL  MICA 
305  IF(NSCTD.EQ.O)  GO  TO  3L7 

CALL  MICA 


UPDATE  CASE  REQUIRED 
HAS  C-130S  ON-SCENE 
ON-SCENE  HOURS  FOP 
C-130S  ON-SCENE 


HOURS  ON-SCENE.   IF  A  CASE 
REDUCE  THE  NUMBER  CF  REQUIRED 


CASE  BY  THE  NUMBER  OF 


317 


DC  318  1=1 ,50 


C 
C 

C* 
C* 

c* 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 


316 

318 


IF(NCA5F(  I  ,  1)  .EQ. 

I F(NCASE(  I, 17 ) .GT 

GO  TO  318 

NCASE(  I ,8)=NCASE(  I  ,8) 

CCNTINUE 


0)  GO  TO  320 
.0)  GO  TO  316 


•NCASEU  ,  17) 


***   MISSION  UPDATE  ANC  ACTION  DETERMINATION  SEGMENT 


324 


:***: 


THE  FUNCTION  OF  TFE  MISSION  UPCATE  ANC  ACTION  DE- 
TERMINATION SEGMENT  IS  TO  A)  IDENTIFY  MISSIONS 
WHICH  ARE  TO  BE  COMPLETED  DURING  CURRENT  TIME  STEP 
AND  B)  TO  IDENTIFY  MISSIONS  WHICH  REQUIRE  C-130S 
TO  BE  LAUNCHED  DURING  CURRENT  TIME  STEP.   FOR  MIS- 
SIONS TERMINATING,  THE  MISSION  ACCOUNTING  VECTOR 
IS  REMCVED,  FOR  MISSIONS  REQUIRING  C-13CS,  MISSION 
ACTION  VECTORS  ARE  LOADED 

SET  TFE  MISSION  ACTION  VECTOR  COUNTER  TC  CNE 


32C  JJ=1 


DETERMINE  WHICH  MISSIONS  ARE  TO  BE  COMPLFTED  AND 
WHICH  MISSIONS  RECUIRE  C-130S  THIS  TIME  STEP  ANC 
GO  TO  THE  APPROPRIATE  AREA  TO  TAKE  THE  PRCPER 
STEPS  NECESSARY 

DO    348    J=l,  100 

IF(NMISSN( J,l  )  . EQ.O)     GO    TO    352 
IF(NMISSN( J, 9) .EQ.NCTS)     GO    TO    344 
IFtNMISSNUf  10)  .EQ.NCTS)     GO    TO     328 
GC    TO    348 


'HICH    IS    COM  PI  El     r' 


. 


HE    SU 


!J:i 


THIS     n  CT^ 

ilSSIOl  i     IN- 


HAVE  A  MISS!''.' 
!  -  "  ATE  ALL  C-l 
SURE    THAT     '■     I         XCCUNTING     VECTORS     REFLECT    THE 

.    r     TO    RETURN    I     DM    THE     MISSION    DUR- 
ST LP 


ING 


THIS    TT 


322    CC    330    L=L,NPIS 

IF(NPLANE(L,7).EQ.NMISSN( J, 16) )     GC    TO    329 

ft  O        TO        -2   ~  O 

329  NPLANE1 L,4)=NCTS 
NPLANE1 L,2)=7 

330  CCNTINUE 

REMOVE  THE  MISSION  BEING  COMPLETED  THIS  TIME  STEP 
FROM  THE  MISSION  ACCOl  IT]  !G  VECTOR  ARRAY 

DC  340  L=J,100 

IF(NMISSN(L+l» 1) .EQ.O)  GO  TO  34  2 

C  C  33  6  M  =  1  1 1 6 

NMISSN( LfM)=NMI SSNCL+ltM) 

. 

34 C  CCNT1 
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c 
c 
c 
c 
c 
c 
c 
C 
c 
c 


2  4  2    DO    2  43    •■1=1,16 
NMSSN(L,M)  =  0 
3m 2    CCNTINUE 

GC     1         >24 

HAVE    A    MISSION    WHICH     INDICATES    THAT      IT     REQUIRES    A 
C-13C    THIS    TI  P.        SE     SI  IT    DOESN'T    HAVE    ALL 

t  HE    A I  sf.R  AF'      1  'r  -     I F     I T  ,     SKIP    IT,     IF     IT 

DOESN'T,     LOAD    THE     FIR^    npc,         j     ■■  Tr  •;     »CTl     ■ 
WITH    THE     SUBJECT    MISSION'S     LOCATION     I  1^      !• 
ACCCUNTING    VECTOR     ARRAY,      ITS     PRIORITY,     ANC 


VECTCF 
MI SSICN 

IN- 
ONE 


C 
C 

C 

c 
c 
c 


CLOSEST    C-130    STAT  I  CM    TC     ITS     PICK-UP     PC  INT. 
CREASE    THE    MISSION    ACTION    VECTOR    COUNTER    BY 

344     IF(NMISSN( J, 11) .GE.NMISSN( J, 7) )     GC    TO    348 
NKISA(JJ,L)=J 

NMISAC  JJ,2)=NMISSN(J,1  ) 

NMISA(JJ,3)=NMISSN( J, 6) 

JJ=JJ+I 
34E  CCNTINUE 
252    JJ=JJ-1 

IF    THERE     IS    MOPE    THAN    ONE    MISSION    RECUIPING    C-130S 
THIS  TIME  STEP  ORDER  THEIR  ACTION  VECTCPS  EY  PRI- 
ORITY FROM  HIGHEST  (I)  TO  LOWEST  (3)  PRIORITY. 
IF  NOT,  GO  TO  C-130  UPDATE  SEGMENT 

TO  368 


354 


356 


360 

3  64 

368 


*  -A-  -A- 


c 
c 
c* 

£  r-.  A  if  * 

Q  %  if  A  *  £ 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


IF(JJ.LE.l)    GO 

DC  364  M=1,JJ 

IF(NMISA(M+l,2)  . 

IF(NMISA(M,2)  .GT 

GO  TO  3  64 

DO    360    L=l,3 

NMISA( J J+l , L)=NMISA(M,L 

NMSAIM  ,L)  =NMISA(M+1,L) 

NMISA(.M  +  1,  L)=NMISA(  JJ+  l,L  ) 

M*1SA(  J  J+I  ,L)  =0 

CONTINUE 

GC    TO    354 

CCNTINUE 

CCNTINUE 


EQ.C)     GO    TO    368 
.NMISA(M+1,  2)  )     GO 


) 


56 


ax 
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C-130  UPDATE  PROGRAM  SEGMENT  **** 
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THE  FUNCTION  OF  THE  C-130  UPCATE  PROGRAM  SEGMENT 
IS  TO  IDENTIFY  ALL  C-130S  THAT  ARE  TC  LAVE  THEIR 
STATUS  CHANGED,  DETERMINE  THE  NEW  STATLS  AND  CH- 
ANGE THE  AIRCRAFT  ACCOUNTING  VECTOR  ANC  THE  CASE 
OR  MISSION  ACCCUNTING  VECTOR,  IF  NECESSARY,  TC  RE- 
FLECT THE  CHANGE  IN  AIRCRAFT  STATUS 


IDENTIFY    C-130, 
THIS  TIME  STEP 


IF  ANY,  REQUIRING  STATLS  CHANGE 


C 

c 
c 
c 
c 
c 


DO    600     1  =  1,  MP  IS 

IF(NPLANE( I ,4) .EQ.O)  GO  TO  600 
IF(NPLANE( I ,4) .LE.NCTS)  GO  TO  500 
GC  TO  600 

A  C-13C  HAS  BEEN  IDENTIFIED  AS  REQUIRING  A  STATUS 
CHANGE.   DETERMINE  THE  STATUS  IT  IS  CURRENTLY  IN 
(THIS  IMPLIES  THE  NEW  STATUS  IT  IS  TC  CHANGE  TC) 
AND  GO  TO  TAKE  THE  APPROPRIATE  STEPS  INDICATED 


50C  IF(NPLANE( I ,2 )  . EQ.l  ) 


IF 


.<  i_  ,■ 


) 


GO 

r  n 


TO 


505 
510 


IF  (NPLANE(  1,2  )  .EQ.5)  GO  TO  520 
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c 
c 
c 
c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 

c 


c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
(, 
c 
c 
c 
c 


505 


508 


51C 
515 


52C 


52 


530 


53*5 
54C 


IFtNPLAfsFt  1,2)  .EC.6)  GO  TO  550 

IFtNPLANEt I ,2) .EQ.7)  GO  TO  530 

IFtNPLANEt 1,2) .EQ. 4)  GG  TO  530 

IFtNPLANEt  I  ,2)  .EQ.8)  GG  TO  580 

HAVE  A  G-130  LANDING  AT  A  STATION  AFTER  ABORTING 
EITHER  A  CASE  FLIGHT  OR  A  FLIGHT  BETWEEN  STATIONS. 
CHANGE  ITS  ACCOUNTING  VECTOR  TO  INDICATE  IT  IS  IN 
A  DOWN  STATUS,  THE  TIME  STEP  IT  WILL  COME  BACK  UP 
AND  THE  C-130  STATION  IT  IS  LOCATED  AT.   ZERO  ALL 
OTHER  VECTOR  ENTRIES  EXCEPT  HOME  STATION  AND  TALLY 
DOWN  TIKE  AND  FLIGHT  TIME 


NPLAME( 1,9) 
NPLANEt I ,2) 
NPLANE( 1,4) 


NPLANE (1,8) 
■2 

=NCTS+NPLANE(T ,3) 
NCOWTI=NDOWTI+NPLANE( 1,3) 
NFLYTI=NFLYTI+NCTS-NPLANE( I ,10) 


NPLANEt 
NPLANE( 
NPLANEt 
NPLANEt 
N PLANE ( 
NPLANEt 


I,3)=0 

T 
I 
I 
I 

I 


,5  )=0 
,6)=0 
,7)=0 


1C)  =0 


C-C    TO    6  00 

C-130    HAS    JUST    BEEN    BROUGHT 

LOWING    A    MAINTENANCE    DOWN. 

COUNTING    VECTOR    EXCEPT     HOME 

IS    AI- 
DE   515    M=2,8 
NPLANEl  I,M)  =  0 
CONTINUE 
NPLANE(  I  ,1C)=0 
GO    TO    600 


C-130    ON    A    CASE    IS    ARRIVING    CN    SCENE. 
PLANE    STATUS    AND    DETERMINE    CASE    IT     IS 


TC    AN    UP     STATUS    FCL- 
ZFRO    ALL     CF     ITS    AC- 
STATION    ANC    STATION     IT 


CHANGE 
CN 


NPLANEt I, 2) =6 
CO    52  5    J- 1,50 
IFtNCASEt J, 16) 
CONTINUE 


EG. NPLANEt 1,6))     GO    TO    530 


ALTER    CASE    ACCOUNTING    VECTOR    TO    INDICATE    THE    C-130 
ARRIVING    CN    SCENE    AND    DETERMINE    THE    TIME    THE    C-130 
MUST    DEPART     SCENE     TO    RETURN    TO    THE     STATION    IT     IS 
SUPPOSE- TO    RETURN    TG    OR    BY     18C0    WHICHEVER     IS 
EARLIER 

NCASEtJ, 17 )=NCASE( J, 17 )+l 

JTTR= ( FLOAT (NCASEt J, 11+ NPLANEt I ,8) ) )/290.0)+0.5 

NTTR=10-( tNCTS-NPLANEt I,10))+JTTR) 

NTR=NCTS+NTTR 

IFtNDAYTI+NTTR.GT. 13)  NTR=NCTS+ 1 8-NDAYT I 

IFlNCASEt J, 2) .EQ. 1 )  GO  TO  545 

CASE  IS  NOT  A  CONTINUOUS  ON-SCENE  RELIEF  TYPE. 
ENTER  TIME  TO  DEPART  SCENE  IN  C-130  ACCCLNTING 
VECTOR.   DETERMINE  NEXT  REQUIRED  C-130  TAKE  OFF 
TIME  CONSIDERING  WHETHER  THE  CASE  CURRENTLY  HAS 
ALL  THE  AIRCRAFT  ASSIGNED  THAT  IT  REQUIRES  AND 
TIME  OF  DAY 

NPLANEt  I,4)  =  NTR 

IFtNCASEt J, 11 ) .LT, NCASEtJ, 7) )  GC  TC  540 

NCASEtJ ,9 )=NCTS+30-NDAYTI 

G  C  T n  6  00 

IFtNDAYTI+JTTR.GTc 16)     GC    TO    539 

SE( J ,9)=NCTS 
GC     TO    6  00 
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c 

c 
c 
c 
c 
c 
c 


c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


CASE  IS  A  CONTINUOUS  ON-SCEME  RELIEF  TYPE.   DETER- 
MINE TIME  NEXT  C-130  SHOULD  CEPART  TO  RELIEVE 
C-130  ARRIVING  CN  SCENE  AND  ENTER  TINE  TC  DEPART 
AT  MAX  ENDURANCE  IN  ACCOUNTING  VECTOR  CF  C-L30 
ARRIVING  CN  SCENE 

54  5  NTNA=NCTS+NTTR-( FLOAT (NCASE ( J ,  Ll  +  NCASE( J, 6)  )  )/290.0) 
1  +  0.5 

NCASE ( J  ,9)=NCTS+NTNA 
NPLANEt  I,4)=NCTS+NTTR 
GC  TO  6CC 


550 


560 


575 


585 

59C 
592 


C-L3C  IS  DEPARTING  CASE  SCENE.   CHANGE  SUBJECT 
C-130  STATUS  AND  DETERMINE  CASE  IT  IS  CN 


NPLANE(  I, 2)=7 
DC  555  J=l,50 
I  F  (  NC  A  S  E  {  J  ,  1  6  ) 
555  CCNTINUE 


EQ.NPLANEt 1,6))  GC  TO  560 


CHANGF  CASE  ACCOLNTING  VECTCR  TC  REFLECT  THE  C-130 
DEPARTING  SCENE  AND  ALSO  NOT  BEING  ASSIGNED  TO  THE 
CASE  ANY  LONGER.   DETERMINE  TIME  REQUIRED  FOP 
C-130  TO  RETURN  TO  DESTINATION  STATION  AND  ENTER 
TIME  TO  RETURN  IN  ITS  ACCOUNTING  VECTCR 


NCASE (J , ll)=NCASE( J, li)-l 
NCASE (J  ,17) -NCASE (J,  17 )-l 
JTTR=(FLCAT(NCASE(J,1H-NPLANE(I 
NPLANE(  1,4  )  =  NiCTS  +  JTTR 
GC  TO  6C0 


8)  )  )/290.0H0.5 


HAVE  A  C-130  EITHER  RETURNING  FROM  A  CASE,  A  MIS- 
SION OP  ARRIVING  FROM  ANOTHER  STATION.  ENTER  THE 
STATION  IT  HAS  ARRIVED  AT  IN  ITS  ACCCLNTING  VECTCR 

58C  NPLANEt I,9)=NPLANE( 1,8) 
IE=IE*K 

RX=0.5+FL0AT( IE)*Z 


DETERMINE  IF 
UPON  LANDING 
DOWN 


C-130  hi 
AND  IF 


AS 
SO, 


A  MECHANICAL  DISCREPANCY 
HOW  MANY  HOURS  IT  WILL  I 


)  GO  TO  585 


GO  TC  592 


IF(RX  .LE.PPDf 
GC  TO  595 
CO  590  M=l,5 
IHRX.LE.TSDR(M)  ) 
CONTINUE  ' 
IF(M.EQ.l)  NTSD=2 
IF(M.EQ.2)  NTS  0  =  4 
IF(M.E0.3)  NTSD=8 
IF(M.EQ.4)  NTSD=24 
IF(M.EQ.5)  NTSD=72 

C-130  HAS  A  MECHANICAL  DISCREPANCY  -  CHANGE  ITS 
ACCOUNTING  VECTCR  TO  INDICATE  IT  IS  DCWN  AND  WHEN 
IT  WILL  BE  BACK  UP.   TALLY  THE  NUMBER  CF  HOURS 
DOWN.   GO  TO  ZERO  REST  OF  PLANE  ACCOUNTING  VECTOR 

NPLANE( I,4)=NCTS+NTSD 
NPLANEt  1,2  )  =  2 
NCOWTI=NDOWTI+NTSD 
GO  TO  5C8 

C-130  DID  NOT  HAVE  A  MECHANICAL  DISCREPANCY  HOW- 
EVER IT  IS  DOWN  FCR  ONE  HOUR  FOR  REFUELING. 
CHANGE  ITS  ACCOUNTING  VECTOR  TO  INDICATE  THIS. 
IF  IT  WAS  NOT  CN  A  MISSION  TALLY  THE  PLIGFT  FOURS 
GO  T         r5T       .  C-1301 S  ACC 
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595    NFLANE(  I»4)=NCTS+1 

NPLANE(  I, 2)  =  2 

IF(NPLANE(I,7) .GT.O)     GO    TO     508 

NFLYTI=NFLY"n  +  NCTS-NPLANE(  I  ,10) 

GO    TO    503 
600    CONTINUE 


c 

C  TH 
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HELICOPTER    UPDATE    PROGRAM    SEGMENT  **** 
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E     FUNCTION    OF    THE    HELICOPTER    UPDATE     FROGRAM    SEC— 
C  MENT     IS    TO    IDENTIFY    ANY    HELICCPTERS     WHICH    ARE    TC 

C  DEPART     A    CASE    SCENE    OR    RETURN    TO    THEIR     STATIONS 

C  AFTER    COMPLETING    SUBSTITUTE     ACTION    FCR     A    C-130 

C  EITHER    ON    A    CASE    OR    A    MISSION.        IF    THERE    ARE     ANY 

C  HELICOPTERS     RETURNING    THE    HELICOPTER    ACTION    VECTOR 

C  IS     ZEROED    IN    THE    HELICOPTER    ACTION    VECTCP    ARRAY 

C  AMD    THE    HELICOPTER'S    HOME    STAT  ION  .AC C CL NT  I NG    VEC- 

C  TOR    IS    CHANGED    TO    REFLECT    TFE    RETURN    OF    TEE    HELI- 

C  COPTER.        IF    THE    HELICOPTER     IS    DEPARTING    A    CASE 

C  SCENE,    THE    SUBJECT    CASE    ACCOUNTING    VECTOR    IS    AL- 

C  TERED    TO    REFLECT    THIS     FACT 

C 
C 

C  IDENTIFY    HELICOPTER,     IF    ANY,    WHICH     IS     EITHER    DE- 

C  PARTING    A    CASE    SCENE    OR    RETURNING    TO     ITS    HOME     STA- 

C  TION    AND    TAKE    THE    APPROPRIATE    STEPS     INDICATED 

C 

DO    690     1=1,20 
615     IF(NHACT(  I  ,3)  .EQ.O)     GO    TO    695 

IF(NHACT( I ,6) .EQ.NCTS)     GO    TO    62  0 

IF(NHACT ( I ,3)  .LE.NCTS)     GO    TO    635 

GO    TO    690 
62C     IF(NHACT( I ,5) .GT. C)     GO    TO    635 
C 

C  A    HELICOPTER     IS    DEPARTING    A    CASE    SCENE.       DETERMINE 

C  THE    CASE     IT    IS    ON 


C 


DC    625     J=l,50 

IF(NCASE(  J, 16)  .EQ.NHACTd  ,4)  )     GO    TC    630 

625    CONTINUE 


C 

C  CHANGE    THE    CASE    ACCOUNTING    VECTOR    AND    THE    HELICCP- 

C  TER    ACTION    VECTOR    TO    SHOW    THE    HELICOPTER     IS    DE- 

C  PARTING    THE    CASE    SCENE.        IF    THE    HELICCPTER    IS    TO 

C  RETURN    TO    STATION    THIS    TIME     STEP,    GO    TC    TAKE    THE 

C  APPROPRIATE    STEPS    -     IF    NOT,     CHECK    FOR     ANY    FURTHER 

C  HELICOPTER    ACTIVITY    TO     BE    ACTEC    ON    THIS    TIME    STEP 

C 

630    NCASEU  ,11  )=NCASE(  J,  11  )-l 

IF(NCASE(  J,  1D.LT.0)     NCASE(  J,  11  )=0 

NHACTi  I  ,6)=0 

IF(NHACT(I  ,3)  .LE.NCTS)     GO    TO    635 

GO    TO    690 
C 

C  A    HELICOPTER     IS     RETURNING    TO     ITS    HOME     STATION. 

C  DETERMINE    TYPE    HELICCPTER    RETURNING    ANC    GO    TC 

C  APPROPRIATE    SECTION 

C 

635     1F(NHACT( I  ,1) .EQ.5)     GO    TO    650 
C 

C  .  HAVE    AN    HH-3F     RETURNING    TO    HOME    STATION.       CHANGE 

C  STATION    ACCOUNTING    VECTOR    TO    REFLECT    CNE    LESS 

C  HH-3F    ON    A    C-130    JOB,     ALTER     STATION    HH-3F    AVAIL- 

C  ABILITY    DEPENDING    ON    NUMBER    OF    HH-3FS    ASSIGNED    AND 

C  NUMBER    ON    C-130    JOBS.       GO    TC     ZERO    SUBJECT    HELICCP- 

C  TER    ACTION    VECTOR 

C 

NSTA(NHACT(I,2)  , S)=NCT '  '        ' CT ( I  ,  2 )  , 6) -1 

IF{NSTA(NHACT(I,2) ,6) .EQ.O)     GO     TC    645 
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640 
645 


C 

c 
c 
c 
c 
c 
c 
c 


IF(f\'STA(NHACT(  I 
GO  TO  67C 
NSTA(NHACT(  1,2) 
GC  TO  670 
NSTA(MHACT( I  ,2) 
GC  TO  670 


2 ) v3 ) .GT 
8  )=5 


GO  TC  640 


,8)=NSTA(NHACT( I , 2 ) , 7 ) 


HAVE  AN  HH-52A  RETURNING  TO  HOME  STATIC 
STATION  ACCOUNTING  VECTOR  TO  REFLECT  CN 
HH-52A  ON  A  C-130  JOB,  ALTER  STATION  F 
AVAILABILITY  DEPENDING  ON  NUMBER  OF  HH- 
ASSIGNED  AND  NUMBER  ON  C-130  JCBS.  GC 
SUBJECT  HELICOPTER  ACTION  VECTCR 


N.   CHANGE 
E  LESS 
F-52A 
52AS 
TO  ZERO 


65  C 


55 


60 


C 

c 
c 

c 


665 


670 


NSTA(NHACT(I  ,2) 
IF(NSTA(NHACT( I 
IF(NSTA(NHACT(  I 
GC  TO  6  70 
NSTA(NHACT( 1,2) 
GC  TO  670 
NSTA(NHACT( 1,2) 
IF(NSTA(NHACT( I 
NSTA(NHACT(I,2) 
GO  TO  670 
l\STA(NHACT(I,  2) 


9)=i\STA(NHACT(  I 
2)  ,9) .EQ.O)  GO 
2),4).GT.3)  CO 

L  i  )  =  1 0 

L1)=MSTA(NHACT( 
2),A).GT.3)  GO 
12  )=5 

12  )  =  L0 


?2)  ,9)-l 

TC  660 
TO  655 


1,2)  ,10) 
TO  665 


8C 
85 


6  86 


6 

6 
C 

C 

c** 

C; 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


9C 
95 


ZERO  HELICOPTER  ACTION  VECTOR  OF  HELICCPTER  RE- 
TURNING TO  HOME  STATION 

CO  680  MM=I,20 

IF(NHACT(MM+L,1) .ECrO)  GO  TO  685 

DC  675  LL=i,6 

NFACT(MM,LL)=NHACT(MM+1,LL ) 

CONTINUE 

CONTINUE 

DC  686  M=l,6 

NHACT(MM,M)=0 

CONTINUE ' 

GC  TO  615 

CONTINUE 

CONTINUE 


C-130  INFLIGHT  ABORT  PROGRAM  SEGMENT        ***> 
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C-130     I 
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20  MUST 
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UMBER  CF 
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DETERMINE  IF  ANY  C-130S  ARE  CN  CASES  OR 
TWEEN  STATIONS,  IF  NOT,  GO  TC  CASE  UPCA 
ACTION  DETERMINATION  SEGMENT  -  OTHERUS 


DO  760  I=1,NPIS 
IF(NPLANE( I, 2) .GT 
GC  TO  7  60 


A)  GO  TO  700 


A  C-130  IS  ON  A 
DETERMINE  IF  IT 


CAS        [GH1   ETWEE  1^ 

FAS  D,  


FLYING  BE- 
TE AND 
E,  CONTINLE 


c  T  A  T  T  r  '.  <; 
:S~ 
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CREPANCY  REQUIRING  AN  ABORT.   IF  NOT, 
OF  THE  C-130S,  IF  SO,  CONTINUE 


CFECK  REST 


C 
C 
C 

c 

c 
c. 
c 
c 


c 

c 
c 
c 
c 
c 
c 


c 

c 

c 

c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 


7CC 


705 

710 

7  15 


73C 


IE=IE*K 

RX=0.5+FLOAT( IE) *Z 
IF(RX.LE. PPDIF)  GO 
GO  TO  760 


TO  705 


C-130  ON  CASE  OR  FLIGHT  BETWEEN  STATIONS  FAS  DE- 
VELOPED A  MECHANICAL  DISCREPANCY  REQUIRING  AN 
ABORT.   DETERMINE  NUMBER  OF  HOURS  IT  WILL  BE  DOWN 
AFTER  LANDING  AND  STORE  THIS  INFORMATION  IN  THE 
C-130* S  ACCOUNTING  VECTOR 

DC  710  J  =  l  ,4 

IFtRX.LE.SDWRi J ) >  GO  TO  7L5 
CCNTINUE 

IF(J.EO.l)  NSD=4 
IFU.EQ.2)  NSD=8 
IFU.EQ.3)  NSD=24 
IFU.EQ.4)  NSD=3  6 
NPLANE(  I, 3)=NSD 

DETERMINE  STATUS  OF  C-130  AT  TIME  OF  ABCRT  AND 
TAKE  APPROPRIATE  STEPS 

IF(NPLANE( I ,2) .EQ.8)  GO  TO  756 

C-130  IS  ON  A  CASE,  DETERMINE  WHICH  CASE  IT  IS  ON 

CC  720  J=l,50 

IF(NCASE( J,16) .EQ.NPLANEl I  ,6)  )  GC  TC  725 
72C  CONTINUE 
725  IF(NPLANE(IT2).GT.5)  GO  TO  730 

C-130  WAS  ENROUTE  TO  SCENE  OF  CASE  -  DETERMINE 
APPROXIMATE  LOCATION  AS  HALFWAY  BETWEEN  STATION 
FROM  WHICH  IT  DEPARTED  AND  CASE  SCENE.   CHANGE 
C-130  ACCOUNTING  VECTOR  TO  INDICATE  RETURNING 
TO  C-130  STATION  FROM  WHICH  IT  CEPARTED  AND  DE- 
TERMINE FLIGHT  TIME  TO  RETURN  AT  200  KNCTS 


DIST  =  FLCAT(NCASE( J , 1 1 +NPL AN E (  1 , 9  )  )  )/ 2 
J  TTR  = ( D I  ST /200 . 0 ) +0 . 5 
NPLANE(  I,8)=NPLANE(  1,9  ) 
GC  TO  735 


0 


C-130  WAS  EITHER  ON  SCENE  OR  RETURNING  FROM  SCENE. 
DETERMINE  DISTANCE  AND  FLIGHT  TIME  TC  DESTINATION 
STATION  AT  200  KNOTS  USING  DISTANCE  TC  DESTINATION 
AS  CNE  HALF  THE  DISTANCE  TO  SCENE  IF  C-130  WAS  RE- 
TURNING FROM  SCENE 


D  I  ST  =  NC  .6  S  E  (  J  ,  1 1  +  N  P  L  AN  E  (  1 ,  6  )  ) 
IF(NPLANE(  1,2) .EQ. 7)  DIST-DIST/2 
JTTR=(DIST/200.0 )+0.5 


0 


ENTER    TIME    C-130     IS    TO  ARRIVE    AT    NEAREST    STATION 

735    NFLANE(  I  ,  4 ) =NCT S  + J TT R 

IF  C-130  WAS  RETURNING  FROM  SCENE  SKIP  CASE  UPDATE 

IE(NPLANE( I ,2) .EQ.7)  GC  TO  755 

C-130  WAS  EITHER  GOING  TO  SCENE  OR  WAS  CN-SCENE. 
DETERMINE  TIME  NEXT  C-130  SHCULD  TAKE  CFF  FOP  CASE 
DEPENDING  ON  WHETHER  IT  IS  A  CONTINUOUS  ON-SCEME 
RELIEF  TYPE  OR  NOT  AND  TIME  ^F  DAY.   L  C  AC  THIS  IN- 
FORMATION INTO  CASE  ACCOUNTING  VECTOR  ANC  ADJUST 
VECTCR  TO  LESS  C-12C  A! 

C-130  CN  SCENE,  CNE  LESS  C-130  ON  SCENE 


120 


74  0 


745 


IF(NCASE( J, 2  )  .EQ.l  )  GO  TO  740 

IF(NDAYTI.GE.l6)  GC  TO  745 

TTS  =  FL3AT(  NCASEU,  ll  +  NCASEU,6)  )  )/290.0 

NTTS=TTS+0.5 

IF(NDAYTI  +  NTTS.GT.  16)  GC  TO  745 

NCASC(J ,9)=NCTS 

NCASE(J,ll)=NCASE( J, 11 )-l 

IFCNPLANE ( 1,2) .EQ.6)     NCASEt 

GC    TO    7  55 

IF(NPLANE( 1,2) .EQ.6J  NCASEU 

NCASEU  ,  L1)=NCASE(  J,  ll)-l 


J, 17 )=NCASE( J  ,  17  )- L 
17  )=NCASEU  ,  17  )-l 


C 
C 
C 
C 

c 
c 
c 
c 

c 


NCASEU  ,9  ) 
GC    TO    755 


:NCTS+(30-NDAYTI ) 


C-130  IS  ABORTING  FLIGHT  BETWEEN  STATIC 
PLANE  HAS  FLOWN  MORE  THAN  H£LF  THE  DIST 
ORIGINAL  DESTINATION  C-130-  STATION  LFT 
TO  THAT  STATION  AT  200  KNOTS  -  OTHERWIS 
IT  TO  STATION  CF  DEPARTURE  AT  200  KNCTS 
C-130'S  ACCOUNTING  VECTOR  AS  NECESSARY 
STATION  GOING  TC  ANC  TIME  OF  ARRIVAL 


NS.   IF 
ANCE  TO  THE 
IT  CONTINUE 
E,  RETURN 
.   CHANGE 
TC  SHOW 


756 


757 


JTT=LAC(NPLANE(  1,9) ) -LAC (NP LANE  (  1,8)  ) 

IFUTT.LT.O)     JTT=-(JTT) 

FTIME=FLOAT( JTT) /2  90. 0 

IF( (FTIME/2.0) .LT.(NCTS-NPLANE(  I  ,  10) )  )  GC  TC  757 

NPLANE(  I,8)  =  NPLANE  (1,9) 

N  PL  AN  E {  I , 4 )  =  (  ( c  L  OA  T ( J  T  T ) / 2 . 0 ) / 2  0  C . 0 ) +0 . 5 


C 

C 

c* 

c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
c 
c 
c 
c 
c 


755 
760 


CHANGE    C-130    ACCCUY 
STATUS    AS    RETURNING 
AL    DISCREPANCY 

NPLANE( I,2)=l 
CCNTINUE 


ING    VECTCR    TO 
FROM    A 


SHCW 
DUE    T 


FLAME' S 

C    MECHANIC- 


:  ;•;  A  ^  5f:  ^V  £  ^;  -:  ^r  -a  •£  A  is  aje  3fe  ii  i-  i£  it 
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***     CASE  UPDATE  AND  ACTION  DETERMINATION  SEG 
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THE  FUNCTION  OF-  THE  CASE  UPDATE  AND  ACT 
INATION  SEGMENT  IS  TO  IDENTIFY  ANY  CASE 
TO  BE  TERMINATED  OR  WHICH  R ECU  IRE  A  C-l 
LAUNCHED  DURING  CURRENT  TIME  STEP.  FCR 
TERMINATING,  THE  CASE  ACCOUNTING  VECTCR 
-  FOR  CASES  REQUIRING  C-130S,  CASE  ACTI 
ARE  LOADED 


ICN  DETERM- 
S  WHICH  ARE 
30  TO  BE 

CASES 

IS  REMCVED 
CN  VECTORS 


SET    THE    CASE    ACTICN    VECTCR    CCUNTER    TC    CKE 


330  JJ=l 


384 


DETERMINE  WHICH  CASES  ARE  TO  EE 
WHICH  CASES  REQUIRE  C-130S  THIS 
TO  THE  APPROPRIATE  AREA  TO  TAKE 
NFCESSARY 

DC    408    J=l,50 

IF(NCASE( J, I) .EQ.O)    GO    TO    412 
IF(NCASE(J, 15 ) .EQ.NCTS)    GO    TO    388 
IF(NCASE( J, 9  )  .EQ.NCTS)     GO    TC    404 
GO    TO    4C8 


TERM  INA 
T I M EST 
THE     FRC 


TEC  AND 
EP  AND  GC 
PER  STEPS 


HAVE    A 
LOCATE 


CASE    WHICH 
ALL    C-130S 


IS    TO    TERMINATE    THIS 
ON    SUBJECT    CASE 


TIME    STEP. 


386 


DC    391     L=1,NPIS 
IFCNPLANE(L,6) .EQ 
GC    TO    391 


NCASEU,  16)  )     C-C    TO    33  9 


121 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 

c 
c 
c 
c 

c 


c 
c 
c 
c 

c 
c 
c 
c 


386 


401 
407 


ONE  OF  THE  C-130S  ON  THE  CASE  THAT  IS  BEING  TERM- 
INATED HAS  bEEN  LOCATED.   IF  IT  IS  RETURNING  FROM 
CASE  THERE  IS  NC  NEED  TO  ALTER  ITS  ACCCUNTING  VEC- 
TOR SO  CHECK  FOR  OTHER  C-L3CS  CN  SAME  C A S F .   IF  IT 
IS  GOING  TO  THE  SCENE  OR  IS  CN  SCENE,  DETERMINE 
FLIGHT  TIME  TO  RETURN  TO  STATION1  IT  TCCK  CFF  FROM 
IF  ENROUTE  TO  SCENE  FIGURING  HALF  THE  DISTANCE  TC 
THE  SCENE  OR  TC  CLOSEST  STATION  IF  ON-SCENE. 
ALTER  THE  C-130  ACCCUNTING  VECTOR  TC  SHCW  DESTIN- 
ATION, THAT  IT  IS  RETURNING,  AND  TIME  TC  ARRIVE 


389  I 
I 
I 
D 
J 
N 
I 
l\ 
N 
N 
G 

385  C 
D 
J 
N 
N 
G 

39C  D 
J 
N 
I 
N 
N 
N 
G 
C 
D 
J 
N 
N 
N 

39  1  C 


F(NPLA 

F(NPLA 

F(NPLA 

ISTH=F 

TTF=(D 

THR=NC 

F(N1  H  . 

PLANE( 

PLANE( 

PLANE( 

C  TO  3 

CNTINU 

IST=FL 

TTR=(D 

PLANE ( 

PLANE ( 

C  TO  3 

ISTH=F 

TTH=(D 

THR=NC 

F(NTHR 

PLANE! 

PLANE ( 

PLANE( 

C  TO  3 

GNTINU 

IST=FL 

TTR=(D 

PLANE ( 

PLANE( 

PLANE ( 

GNTINU 


NE( 
NEC 
NE( 
LOA 
1ST 
TS- 
.GT 
L,8 
L,4 
L,2 
91 

OAT 

1ST 

L,4 

L,2 

91 

LOA 

1ST 

TS- 

•  GT 

L,8 

L,4 

L,2 

91 

E 

OAT 

1ST 

L,4 

L,2 

L,  8 

E 


L,2 
L,2 
L,2 
T(N 
H/2 
NPL 
.10 
J  =  N 
)=N 
)  =  7 


EQ 

EQ 


1)  GC  TO  391 
7)  GO  TO  391 

) .EQ.5)  GC  TO  390 

CASE( J,11+NPLANE(L 

90.0J+0.5 

ANE(L  ,10)+JTTH 

)  GO  TO  385 

PLANEIL,  1) 

CTS+JTTH 


1)  )) 


(KCASE( J,  ll  +  NPLANE(L, 8)  ) ) 

/290.0)+0.5 

)=NCTS+JTTR 

)  =  1 

T(NCASE( J,11+NPLANE(L,1) ) ) 

H/290.0  )+0.5 

NPLANE(L  ,10)+JTTH 

.10)  GO  TO  386 

)=NPLANE(L,  1  ) 

)=NCTS+JTTH 

)=7 


(NCASE ( J,  ll  +  NPLANEU, 9)  )  )/2.0 

/290.0  J +0.5 

)=NCTS+JTTR 

)  =  7 

)=NPLANE(L,9) 


DETERMINE  IF  ANY  HELICOPTERS  WERE  ON  TFE  CASE  BE- 
ING TERMINATED.   IF  SO,  ALTER  THE  SUBJECT  HELICOP- 
TER ACTION  VECTOR  TO  INDICATE  IT  IS  TO  DEPART 
SCENE  AND  REVISE  ITS  ARRIVAL  TIME  AT  HOME  STATION 
OTHERWISE,  CONTINUE 


EQ 
EQ 


DO  407  MM=i,20 
IF(NHACT(MM, 1) 

IF(NHACT(MM,4) 

GC  TO  4  07 

N  F  A  C  T  (  M  M ,  3  )  =  N  H  A  C  T  {  M  M  ,  3  ) 

NHACT(MM,6)=NCTS+1 

CONTINUE 


0)  GO  TO  4C9 
NCASEU,  16)  ) 


GO  TO  401 


(NHACTi MM,6)-NCTS+1 ) 


TALLY  THE  NUMBER  OF  ON-SCENE  FGURS  REQUIRED  TFAT 
WERE  NOT  COVERED  FOR  THE  CASE  BEING  TERMINATED 

4C9    NCSHNC=N0SHNC+NCASE(Jf81 

REMOVE    THE    CASE    ACTION    VECTOR    OF    THE    CASE    BEING 
TERMINATED 

DC  400  L=J,50 

IF(NCASE(L+1 ,1 ) .EG.O)  GC  TO  402 

CO  396  M=l,  17 

NCASEU  ,M)=\'CASE(L  +  1,M  ) 

39  6  CONTINUE 


322 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


400 
402 

403 


404 
40  £ 


406 


408 
4  12 


414 


416 


4  20 

424 

42  0 


CONTINUE 

DC  403  M=l,17 

NCASE( L ,M) =0 

CCNTINUE 

GC  TG  384 


HAV 
C-l 

DOE 

DOE 

CAS 

IN 

THE 

CAS 

ONE 


E  A  CASE  WHICH  INDICATES  THAT  IT  RECURS  A 
30  TO  BE  LAUNCH  EC  THIS  TIME  STEP.   BE  SURE  IT 
SN'T  HAVE  ALL  THE  AIRCRAFT  IT  NEEDS  -  IF  IT 
S,  SKIP  IT,  IF  IT  DOESN'T,  LOAD  THE  FIRST  CPEN 
E  ACTION  VECTOR  WITH  THE  SUBJECT  CASE  LOCATION 
THE  ACCOUNTING  VECTOR  ARRAY,  ITS  PPICRITY,  ANC 

CLOSEST  C-130  STATION  TO  THE  SCENE  CF  THE 
E.   INCREASE  THE  CASE  ACTICN  VECTCF  CCUNTFR  BY 


IF  (NIC 
NCaSA 
NCASA 
NCASA 
JJ-^JJ 
GC  TO 
I  F  (  NC 
IF(NC 
GC  TO 
CCNTI 


ASE 
(  JJ 
(J  J 
(J  J 
+  1 
4  00 


( J, II ) .GE.NCASE(J,7 ) )  GO 

,  I)=J 

,  2)  =  MCASE( J, L ) 

,3)=NCASE(J,6J 


TC  406 


aSE 
:ASE 
40 
NUE 
JJ=JJ-L 


{ J, 2) .EQ.O)  GO  TO  403 
(J,  ID  .GE.NCASE(J,7)+  1) 
5 


GC  TO  408 


IF  THERE  IS  MORE  THAN  ONE  CASE  REQUIRING  C-130S 
THIS  TIME  STEP  ORDER  THEIR  ACTION  VECTCPS  BY  PRI- 
ORITY FROM  HIGHEST  (L)  TO  LOWEST  (3)  PRIORITY.   IF 
NOT,  GO  TO  C-130  REQUIREMENT  DETERMINATION  SEGMENT 


IF 

DO 
IF 
IF 
GC 
CC 


(  JJ 
42 

(NC 
(NC 
TO 
42 
NCASA 
NCASA 
NCASA 
NCASA 
CCNTI 
GC  TO 
CCNTI 
CCNTI 


.LE. 

4   Mi 

AS  AC 

ASA( 
4  24 
0  L= 
(  J  J  + 
(M,L 
(  M  + 1 
(  JJ  + 
NUE 

414 
NUE 
NUE 


1  )  GO  TO  428 

1,  JJ 

M+1,2) .EQ.O)  GO  TO  428 

M,2  )  .GT.NCASA(M+1 ,2) )  GC 

1,3 

1  ,L)=NCASA(M,L) 

)=NCASA(M+1,L  ) 

,L)=NCASA(JJ+1,L) 

1,L)=0 


TO  416 


*T*  T  T  -?  * 

c  #  -  *  * ' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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C-130  REQUIREMENT  DETERMINATION  SEGMENT 

THE  FUNCTION  OF  THE  C-130  REQUIREMENT  DETERMI- 
NATION SEGMENT  IS  TO  DETERMINE  THE  TC1AL  NUMBER 
OF  C-130S  REQUIRED  IN  EACH  C-130  STATICN  AREA  FCP 
BOTH  CASES  AND  MISSIONS  AND  TC  DETERMINE  THE  SUM 
TOTAL  C-130S  REQUIRED  FOR  THE  CURRENT  TIME  STEP 


ZERC  THE 
VECTORS 


THREE  AREA  MISSION  C-130  REQUIREMENT 


NPRM( 1) =0 
NFRM(2)=0 
NFPM(3) =0 


DETERMINE  WHETHER  THERE  ARE  ANY  C-13CS  REQUIRED 
FOR  MISSIONS  THIS  TIME  STEP  -  IF  SO,  TALLY  THE 
REQUIREMENTS  BY  C-130  STATION  AREAS  (REQUIREMENT 
1SS  ION  IGN  IE  TO- 

TAL NUMBER  OF  C-130S  REQUIRED  FOR  THE  MSSI 


123 


c 

c 
c 
c 
c 
c 
c 
c 
c 
c 


LESS  THE  NUMBER  OF  C-13CS  ALREADY  ASSIGNED} 

DC  458  1=1 ,20 

IF(NMISA( I ,3) .EQ.O)  GO  TO  462 

I  F ( KM  I S  A { I , 3 ) . EQ  .  1  )  GO  TO  454 

IF(NMISA( I  ,5)  .EQ.2  )  GO  TO  450 

NPRM(3) =  NPRM(3)+NMISSN(NMISAU  ,  1)  ,  7) -NM I S SN  (NM 1 S A ( I  ,1 ) 
1,11) 

GO  TO  45  8 
4  50  NPRM(2)=N'PRM(  2 ) +NM  I  SSN ( NM I SA ( I ,  1 )  ,  7 )-NM 1 S SN ( NM I SA ( I  ,  1 ) 
I  til  ) 

GC  TO  458 
4  54  NPRM{  1) =NPRM(  1 ) +  NM I SSN ( NM I S A (  1  ,  1 )  , 7 ) -NM I S SN ( NM I SA (  I  , L  ) 
1,11) 

FIND  THr  TOTAL  C-130S  REQUIRED  BY  MISSICNS  FCR 
THIS  TIME  STEP 

458  CONTINUE 

462  NPPMT=NPRM(1)+NPRM(2)+NPRM(3) 

ZERO  THE  THREE  AREA  CASE  C-13C  REQUIREMENT  VECTCRS 

NPRS( 1) =0 
NPRS(2>=0 

NPRS(3) =0 

DETERMINE  WHETHER  THERE  ARE  ANY  C-13CS  REQUIRED 
FOR  CASES  THIS  TIME  STEP  -  IF  SO,  TALLY  THE  RE- 
QUIREMENTS BY  C-130  STATION  AREAS  ( R ECL  IREMENT  FCR 
EACH  NON  CONTINUOUS  ON- SCENE  RELIEF  CASE  WITH  AN 
ACTICN  VECTOR  IS  THE  TOTAL  NUMBER  OF  C-130S  RE- 
QUIRED FOR  THE  CASE  LESS  THE  NUMBER  CF  C-130S  AL- 
READY ASSIGNED  TO  THE  CASE;  FCR  CONTINUOUS  ON- 
SCENE  RELIEF  CASES,  IT  IS  ONE) 


C 

c 
c 
c 
c 
c 
c 


464 
466 


468 
47C 


47  2 
47  4 


DC 

I  F( 

IF( 

IF< 

IF( 

NPR 

111) 
GC 
NPR 
GC 
IF( 
NPR 

111) 
GO 
NPR 
GC 
IF( 
NPR 

111) 
GC 
NPR 
CCN 


474  1=1,10 
NCASAt I  ,3)  .EQ 
NCASA(  I  ,3)  .EQ 
NCASAt 1,3  )  .EQ 
NCASE(NCASA( I 


0) 
1) 
2) 
1 .) 


GO 
GO 
GO 
2) 


TO  478 
TO  470 
TO  466 
EQ.l)  GO 


1C    464 


478 


S(3)=NPRS( 3)+NCASE(NCASAU  ,  1)  ,  7) -NCA SE ( NCASA ( 1,1), 

TO  474 

S(3)=NPRS(3)+l 

TO  4  74 

NCASE(NCASA{ I ,1) ,2) .EQ.l)  GO  TC  468 

5(2 )=NPRS(2)+NCASE(NCASA(  I,  1  )  , 7  )-NCA SE ( NCASA ( 1,1), 

TO  4  74 
S(2)=NPRS(2)+1 

TO  4  74 

NCASf(NCASA(  I  ,  1  )  ,2).EQ.  1)  GO  TC  472 

S(l )=NPRS(1)+NCASE(NCASA( 1,1) , 7 )~NCASE ( NCASA  (  1,1), 

TO  4  74 

SCI )=NPRS(1)+1 

TINUE 

FIND  THE  TOTAL  C-130S  REwUIREC  BY  CASES  FOR  THIS 
TIME  STEP  AND  TALLY  THE  TOTAL  C-130S  REQUIRED  FOP 
ALL  CASES  AND  MISSIONS  THIS  TIME  STEP 

NPRST=NPRS( l)+NPRS(2i+NPRS(3) 
NTPR=NPRST+NPRMT 

IF  THERE  APE  NOT  ANY  C-130S  REQUIRED  EY  EITHER 
CASES  OR  MISSIONS  THIS  TIME  STEP  GO  TC  SEE  IF  ANY 
C-130S  NEED  TO  BE  SHIFTED  BACK  TG  THFIP  HCME  STA- 
TIONS.  IF  THERE  ARE  ANY  C-13CS  REQUIRED  THIS  TIME 
ST"P,  TA1  LY      THTAL  C-130S  REQUIRED  IN  -ACH 
C-130  STATION  AREA 
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c 
c 
c* 

C* 

C 

C 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
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c 
c 
c 
c 
c 
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c 
c 
c 
c 

c 

c 


IF(NTPR.EQ.O)     CO    TO    2300 
NPRT! 1 ) =NPRS( 1)+NPRM( 1 ) 
NPRT( 2)=NPRS( 2)+NPRM(2) 
NPRT!3)=NPRS(3)+NPRM(3) 


***  C-1.30    AVAILABILITY    DETERMI  NAT  I  CN    SEGMENT  **** 
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91C 
920 
930 


94C 

95C 
96C 
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IF 
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WE  A 
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TO 

ITS 
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ION  S 
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Y  ARE 
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NE  IS 
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TION  0 
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TION  T 

CALL 
AOY  FL 
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T  IS  B 
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A  MECH 
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IS 
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DURI 
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ELCW 
ES  A 
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0  FL 
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NG  CU 
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Wl  M 
RE  AL 
TEP. 
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30  AV 
ND  TH 
BE  AB 
RRE.NT 
RE  DO 
EACH 
HER'  P 
LOWED 

NEXT 
A  STA 

DETE 
TAKE 
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E  C-l 
AILAB 


MLABILIT 
E  NUMBER 
LE  TO  TAK 

TIME  STE 
WN  FOR  MA 
STATION  I 
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TO  TAKE 
,  FOR  EAC 
TION  THAT 
RMINED  WH 
CFF,  IT  W 
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20S  PASSI 
LE  FOR  FL 


Y  CE 
GF  C 
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S  CH 
SCCK 
CFF 
F  C- 

IS 
ETHE 
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F  PR 
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TERM 

-L30 

F  AN 

IF  C 

NANC 

ECKE 

EC  I 

DURI 

130 

NOT 

R»  I 
BE  F 
ECLU 
LL  T 


I- 
S  AT 

D 
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E, 

D  TO 
N)  , 
NG 
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F  THE 
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DES 
HE 


CHECK  FOR  C-130  STATIONS  BEING  BELOW  WE£TPER  MINI- 
MUMS  BEGINNING  WITH  THE  NORTHERN  C-L3C  STATION 


9CC  IE=IE*K 

RX=0c5-f- FLOAT!  IC)*Z 

I  F ( RX . GT  .TMGNTH( MONTH , 12 )  ) 


GO  TO  930 


NORTHERN  C-130  STATION  IS  BELCW  WEATHER  PINIMU^S, 
CHANGE  THE  STATUS  OF  ANY  C-13CS  AT  THE  SUBJECT 
STATION  WHOSE  STATUS  IS  PRESENTLY  "RE£LY  TG  FLY" 
TO  REFLECT  "DOWN  DUE  TO  WEATHER" 

DO    920    1=1 ,NPIS 

IF(NPLANE(  1,9) .EQ.  I)     GO    TO    910 

GC    TO    920 

IF(NPLANE(I  ,2)  .EQ.O)     NPLANEU  ,2)  =9 

CONTINUE 

IE=IE*K 

RX=0.5+FLOAT(  IE)*Z 

IF(RX  .GT.TMONTHl MONTH,  13)  )  GO  TO  9  60 

CENTRAL  C-130  STATION  IS  BELCW  WEATHER  HMMUPS. 
CHANGE  THE  STATUS  OF  ANY  C-12CS  AT  THE  SUBJECT 
STATION  WHOSE  STATUS  IS  PRESENTLY  "RE£CY  TO  FLY" 
TO  REFLECT  "DOWN  DUE  TO  WEATHER" 

DC  950  1=1  ,NPIS 

IF(NPLANE( I ,9) .EQ.2)  GO  TO  940 

GC  TO  950 

I  F(  NPLANEU  ,2  )  .EQ.O)  NPLANE  ( I  ,  2  )  =9 

CONTINUE 

IE=IE*K 

RX=0.5+FL0AT( IE)*Z 

IF(RX.GT.TMONTH{ MONTH,  14)  )  GO  TO  990 

SOUTHERN  C-130  STATION  IS  BELCW  WEATFEP  MNIMUMS 
CHANGE  THE  STATUS  OF  ANY  C-12CS  AT  THE  SUBJECT 
STATION  WHOSE  STATUS  IS  PRESENTLY  "REACY  TO  FLY" 
TO  REFLECT  "DOWN  DUE  TO  WEATHER" 


CC  930  I=1,NPIS 
I  F( NPLANE! 1,9) .EQ 
GC  TO  9ti0 
970  IF(NPLANE(I,2) .EQ 


3)  GO  TO  970 

0)  NPLANE! 1,2 )=9 


125 


c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 
c 


98 
99 


C  CONTINUE 
0  CONTINUE 


ZERO    ALL    C-L30    STATION    OL30    AVAILABILITY    VECTORS 


NPA<1  )=0 
NPA(2) =0 
NPA(3)=0 


FIND    ALL    C-130S    WHOSE    STATUS     INCICATES    "READY    TC 
FLY" 


DO    1010    I=1,NPIS 
IF(NPLANE(I,2) . EQ 
GC    TO    1C10 


0)     GO    TO     1000 


100 


IOC 
101 

c 
c 
c 
c 

c 
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c 
c 


FOR  EACH  C-130  WHOSE  STATUS  INDICATES  "READY  TC 
FLY"  SEE  IF  IT  WILL  HAVE  AMECFANICAL  DISCREPANCY 
THAT  WILL  MAKE  IT  UNABLE  TO  FLY  ON  START  UP.   IF 
IT  DOES,  CHANGE  ITS  STATUS  TC  REFLECT  THAT  IT  WILL 
BE  PUT  DOWN  FCR  MAINTENANCE  IF  CALLEC  -  IF  NOT, 
TALLY  IT  AS  AVAILABLE  AT  THE  C-130  STATION  WHERE 
IT  IS  LOCATED 

0     IE=IE*K 

RX=0.5+FL0AT( IE)*Z 
IF(RX.GT.PPDS)     GO    TO    1005 
ISPLANE<I,2)  =  3 

GC    TO    1C10 
5    NFA(NPLANE(I ,9) )=NPA( NPLANE( I ,9) )+l 
0    CCNTINUE 

TALLY    TOTAL     NUMBER    OF    C-130S    AVAILABLE    THIS    TIME 
STEP 

NTPA=NPA( 1)  +  NPA(  2 ) +NPAC3) 
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*       C-130  ASSIGNMENT  DETERMI NATI CN  SEGMENT        **** 


THE  FUNCTION  0 
SEGMENT  IS  TO 
MISSIONS  AND  C 
RENT  TIME  STEP 
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QUIREMENTS  WIT 
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CHECK  EACH  C-130  STATION  AREA  TO  SEE  IF  THE  NUMBER 
OF  C-130S  REQUIRED  IN  TFE  Af?EA  ARE  GREATER  TH/ 
THE  NU      AVAILABLE  -  IF  THERE  ARE  SLCF  AREAS 

H  rn    cni  TH ,  ' '  0  '  r     tp 
FILL  AS  MANY  REQUIREMENTS  IN  TFE  AREA  AS  POSSIBLE 


126 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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1011 
1012 
1012 


1015 


1C2C 
1025 

103C 


C 

c 
c 
c 
c 
c 
c 
c 
c 
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c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


1025 
104C 


1045 


WITH    HELICOPTERS     IF    THIS    IS     FCSSIBLE.        IF     ALL 
AREAS    HAVE    SUFFICIENT    C-130S    TO    MEET     THEIR    RE- 
QUIREMENTS   GO    TC    FILL    REQUIREMENTS    WITH    C-130S 
WITHIN    AREAS 


IF(N 
IF(N 
IF(N 
GC  T 
KA=1 
GC  T 
KA  =  2 
GC  T 
KA  =  3 


PA(  1)  .LT.NPRTQ  )  )  GO  TO  1011 

PA( 2)  .LT.NPRT( 2)  )  GO  TO  1012 

PA(3)  .LT.NPRT (3) )  GO  TO  10  13 
0  1070 

0  1015 

0  1015 


HAVE  AN  AREA  WITH  INSUFFICIENT  C-130S  TO  COVER 
ARfcA  REQUIREMENTS.   SEE  IF  THERE  IS  A  CASE  IN  TFE 
AREA  REQUIRING  A  C-130  THIS  TIME  STEP  kFICH  IS  CF 
THE  TYPE  THAT  A  HELICOPTER  CCULO  BE  SUBSTITUTED  ON 
IF  SO,  INITIALIZE  CALLING  PARAMETERS  AKC  CALL  SUE- 
ROUTINE  SUB  TO  MAKE  ALL  POSSIBLE  HELICCPTER  SUB- 
STITUTIONS ON  ECTH  CASES  AND  MISSIONS  IN  THE  SUB- 
JECT APCA  UNTIL  NC  FURTHER  SUBST I  TUT  I C N S  POSSIBLE 
OR  C-130S  IN  AREA  ARE  SUFFICIENT  TO  COVER  REQUIRE- 
MENTS, WHICHEVER  OCCURS  FIRST 


0)  CO  TO  1035 
KA)  GO  TO  1020 

1)  ,5)  .  EQd  )  GO  TC  1030 


DC  102  5  1=1,10 
IF(NCASA( I  ,3)  .EQ 
IF(NCASA( I ,3) .EQ 
GC  TO  1025 
IF(NCASE(NCASA(I 
CONTINUE 
GC  TO  1035 
NAREA=KA 
NTYPE= I 
CALL  SUB 

IF  THERE  ARE  NO  MORE  REQUIREMENTS  FOR  C-130S  GC  TO 
SEE  IF  ANY  HAVE  TO  BE  SENT  TC  THEIR  HOME  STATIONS 
OTHERWISE,  CHECK  TO  SEE  IF  ANYMORE  AREAS  FAVE  IN- 
SUFFICIENT C-130S  TO  COVER  THEIR  REQUIREMENTS,  IF 
SO,  GO  TO  SEE  IF  THERE  ARE  ANY  SUBS T  ITUTA BL E  CASES 
IN  THE  SUBJECT  AREA.   IF  NOT,  GO  TO  DETERMINE 
STATUS  OF  ALL  AREAS  AND  MAKE  DECISION  ON  NEXT  STEP 
TO  BE  TAKEN 


IF(NTPR.EQ.O)  GO  TO  2300 

IF(KA.EQ.3)  GO  TO  1065 

KA=KA+i 

IF(NPA( KA)  . 

KA=KA+1 

IF(KA.EQ.4) 

IF(NPA( KA) . 

GC  TO  106  5 


LT.NPRT (KA)  }  GO  TO  101 


GO  TO  1065 
LT.NPRT  (KA)  ) 


GO  TO  10  15 


THERE  WERE  NO  SUBST ITUT ABL E  CASES  IN  TFE  AREA  WITH 
INSUFFICIENT  C-130S  TO  FILL  RE CUI RE  ME  NT S  SO  SEE  IF 
THERE  ARE  ANY  MISSIONS  IN  THE  SUBJECT  AREA  WHICH 
ARE  OF  THE  TYPE  THAT  A  HCLICCPTER  CCULC  BE  SUBSTI- 
TUTED ON.   IF  SO,  INITIALIZE  CALLING  PARAMETERS 
AND  CALL  SUBROUTINE  SUB  TO  MAKE  ALL  POSSIBLE  HELI- 
COPTER SUBSTITUTIONS  ON  MISSIONS  IN  TFE  SUBJECT 
AREA  UNTIL  NO  FURTHER  SUBSTITUTIONS  POSSIBLE  CR 
C-130S  IN  AREA  ARE  SUFFICIENT  TO  COVER  REQUIRE- 
MENTS, WHICHEVER  OCCURS  FIRST 


KB  =  KA 

DO  1050  1=1,20 

I F(NMIS  A(I ,3)  .EQ 

I F(NMISA( 1,3)  .EQ 

GO  TO  10  50 

IF(NMISSN(NMISA( 


.0)  GO  TO  1060 
.KB)  GC  TO  1045 

I  , 1)  ,5)  .EQ.  1  )  GO  TC  1055 
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105C 
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C 
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C 
C 
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L070 
1075 

108C 
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C 

c 
c 
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c 

c 
c 
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c 
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11CC 


c 
c 
c 

c 
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CONTINUE 

GO  TO  1060 
NAREA=KB 
NTYPE^2 
CALL  SUB 

IF  THERE  ART  NC  MORE  REQUIREMENTS  FOR  C-130S  GQ  TO 
SEE  IF  AMY  HAVE  TO  BE  SENT  TO  THEIR  HOME  STATIONS 
OTHERWISE,  CHECK  tq  see  IF  ANYMORE  AREAS  HAVE  IN- 
SUFFICIENT C-13CS  TO  COVER  THEIR  REQUIREMENTS,  IF 
SO,  GO  TO  SEE  IF  THERE  ARE  ANY  SUBS T I TU TABL E  CASES 
IN  THE  SUBJECT  AREA.   IF  NOT,  GO  TO  CETEPMINE 
STATUS  HE  ALL  AREAS  AND  MAKE  DECISION  CN  NEXT  STEP 
TO  BE  TAKEN 

IF(NTPR  .EQ.O)  GO  TO  2300 

IF(KH,EC3)  GO  TO  1065 

KA^-KB+1 

IF(NPA(KA)  .LT.NPRT(KA)  )  GO  TQ  LC 15 

KA=KA+l 

IF(KA.EQ.4)  GO  TO  1065 

IF(NPA(KA)  .LT.NPRT(KA)  )  GO  TO  1015 

ALL  POSSIBLE  HELICOPTER  SUBSTITUTIONS  HAVE  BEEN 
MADE  IN  APPLICABLE  AREAS.   IF  THERE  IS  ANY  AREA 
WHICH  STILL  DOES  NOT  HAVE  ENOUGH  C-130S  AVAILABLE 
TO  COVER  ITS  REQUIREMENTS  THIS  TIME  STEP,  GO  TC 
MAKE  C-130  ASSIGNMENTS  BETWEEN  AREAS.   IF  SUFFIC- 
IENT C-130S  ARE  AVAILABLE  IN  EACH  AREA  TO  FILL  THE 
INDIVIDUAL  AREA  REQUIREMENTS,  ASSIGN  C-130S  TC 
CASES  WITHIN  OWN  AREAS 


IF(NPA(  I) 
IF(NPA(2) 
IF(NPA( 3) 


LT 
LT 
LT 


NPRT(  1)  ) 
NPRT (2) ) 
NPRT(3) ) 


GO 
GO 
GO 


TO  LL6.C 
TO  1160 
TO  1160 


THERE  ARE  SUFFICIENT  C-130S  IN  EACH  AREA  TO  COVER 
EACH  AREA'S  REQUIREMENTS  SO  FILL  ALL  REQUIREMENTS 
WITH  AIRCRAFT  WITHIN  THE  AREAS 


L=l 

GC  TO  1085 
L  =  2 

GC  TO  1035 
L  =  3 


IF  THERE  ARE  NOT  ANY  C-130  REQUIREMENTS 
AREA,  GO  TO  CHECK  NEXT  AREA 


IN  SUBJECT 


IF(NPRT(L)  .GT  .0)  GO  TO 
IF(L.EQ.l)  GO  TO  1075 
IFtL.EQ  .2)  GO  TO  1030 


1100 


ALL  C-130  REQUIREMENTS  FOP  CURRENT  TIME  STEP  HAVE 
BEEN  FILLED  SO  GO  TO  SEE  IF  ANY  C-13CS  HAVE  TC  BE 
SENT  TO  THEIR  HCME  STATIONS 


GO  TO  2  300 


C-130  FROM  SUBJECT  AREA  REQUIRED  FOR  A  MSSICN  OP 
CASF  IN  THAT  AREA  SO  INITIALIZE  PARAMETERS  ACCORD- 
INGLY AND  CALL  SUBROUTINE  PLANE  TO  FINC  SPECIFIC 
C-130  TO  BE  USED 


NAPEA=L 
NAPEAS=L 
CALL  PLANE 

SEE  IF 
QUIRES 


IT  IS  A  CASE  IN  THE  SUEJFCT 
THE  C-130  -  IF  SO,  F  ] 


CALL' 
SUBROUTINE  FILL 


IF 


IT 


IS 


0  TFAT  RE- 
CASE,  IMTIAL- 

NCT  A  CAS  , 


12S 


THE     MISSION    THAT    REQUIRES    THE    C-130 


1125  DC  113  0  1=1, 10 


1130 

1135 


C 

c 
C 

c 

c 
c 

c 

c 
c 
c 


c 
c 
c 
c 

c 
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0) 
L) 


GO 
GC 


TO 
TO 


1140 
1135 


IF(NCASA( 1,3)  .EQ 
IF(NCASA( I  ,3)  .EQ 
CONTINU 
GC  TO  1140 
NACE=NCASA( 1,1) 
NPANE=NPLUSE 
CALL  FILL 

JUST  FILLED  A  C-130  REQUIREMENT  FOR  A  CASE  IK1  SUB- 
JECT AREA.   IF  MORE  C-120S  ARE  REQUIRED  IN  THE 
SAME  AREA  GO  BACK  TO  FILL  THE  REMAINING  REQUIRE- 
MENTS.  IP  NO  FURTHER  C-130S  ARE  REQUIRED  AT  ALL, 
GO  TO  SEE  IF  A  C-130  HAS  TO  BE  SENT  BACK  TO  ITS 
HOME  STATION.   IF  THERE  ARE  STILL  MOPE  C-130S  RE- 
QUIRED IN  OTHER  AREAS,  GO  TO  CHANGE  THE  AREA  DES- 
IGNATION AND  FILL  THE  REQUIREMENTS 


IF(NPRT(L )  .GT.O) 
IF(NTPR.EQ.O)  GO 
IF(L.EQ.l)  GO  TO 
IFCL.EQ.2)  GO  TO 


GO  TO  1100 
TO  2300 
1C75 
1080 


THE  C-130  REQUIREMENT  IN  THE  SU3JECT  AREA  IS  FCR 
A  MISSION  -  FIND  THE  MISSION,  INITIALIZE  THE  CALL- 
ING PARAMETERS  ACCORDINGLY  ANC  CALL  SUBROUTINE 
FILL 


L)  GO  TO  1150 


DC  1145  1=1,20 
IF(NMISA(  I  ,3)  .EQ 
CONTINUE 
NISSN=NMISA( 1,1) 
NPANE=NPLUSE 
CALL  FILL 

JUST  FILLED  A  C-130  REQUIREMENT  FOR  A  MISSION  IN 
SUBJECT  AREA.   IF  MORE  C-130S  ARE  REGLIPED  IN  THE 
SAME  AREA  GO  BACK  TO  FILL  THE  REMAINING  REQUIRE- 
MENTS.  IF  NO  FURTHER  C-130S  ARE  REQUIRED  AT  ALL, 
GO  TO  SEE  IF  A  C-130  HAS  TO  BE  SENT  BACK  TO  ITS 
HOME  STATION.   IF  THERE  ARE  STILL  MORE  C-130S  RE- 
QUIRED IN  OTHER  AREAS  GO  TO  CHANGE  THE  AREA  DESIG- 
NATION AND  FILL  THE  REQUIREMENTS 


IF(NPRT  (L  )  .GT  .0) 
IF(NTPR.EQ.O)  GO 
IF(L.EQ.l)  GO  TO 
IFCL.EQ.2)  GO  TO 


GO  TO  1100 
TO  2300 
1C75 

1CS0 


THERE  ARE  NOT  ENOUGH  C-130S  IN  EACH  AREA  TO  COVER 
THE  C-130  REQUIREMENTS  WITHIN  THE  AREAS.   IF  THERE 
ARE  AT  LEAST  AS  MANY  TOTAL  C-130S  AVAILABLE  AS 
THERE  ARE  REQUIREMENTS,  MAKE  ASSIGNMENTS  BETWEEN 
AREAS.   IF  THERE  ARE  NOT  AS  MANY  TOTAL  C-130S  AS 
ARE  REQUIRED,  GC  TO  MAKE  ASSIGNMENTS  EY  CASE  AND 
MISSION  PRIORITIES 

NTPA=NPA( 1)+NPA(2)+NPA(3) 
NTPR=N?RT(  1)+NPRT( 2)+NPRT( 3) 
IFtNTPA  .LT.NTPR)  GO  TO  1600 

THERE  ARE  NOT  ENOUGH  C-130S  IN  EACH  AREA  TO  COVER 
THE  C-130  REQUIREMENTS  WITHIN  THE  AREAS  BUT  THERE 
ARE  AT  LEAST  AS  MANY  TOTAL  C-130S  AVAILABLE  AS  APE 
REQUIRED  SO  ASSIGNMENTS  WILL  BE  MADE  BETWEEN  AREAS 
MAKING  AS  MANY  ASSIGNMENTS  WITFIN  THE  AREAS  AS 
POSSIBLE  FIRST 


1Z0C  L=l 


129 


12L0 


C 

c 
c 
c 
c 
c 
c 


1220 


c 

c 
c 
c 

c 
c 

c 


1220 


1240 
,1250 


C 
C 
C 

c 
c 
c 
c 


c 

c 
c 

c 
c 
c 

c 


IF  THERE  ARE 
SUBJECT  AREA 


C-130S  AVAILABLE  AND  REQLIRED  IK'  THE 
GC  TO  FILL  AS  MANY  REQUIREMENTS  WITH- 
IN THE  AREA  AS  POSSIBLE,  IF  NCT,  GO  TC  NEXT  AP^A 


IF(NPA(  L)  .  ECO)  GG  TO  1220 
IF(MPRT(L)  .GT.O)  GO  TO  1230 

THERE  WERE  EITHER  NOT  ANY  C-130S  REQUIRED  IN  THE 
SUBJECT  AREA  OP  NO  C-130S  AVAILABLE.   IF  ALL  AREAS 
HAVE  BEEN  CHECKED  AND  WITHIN  AREA  ASSIGNMENTS  MADE 
GO  TO  ASSIGN  C-130S  BETWEEN  AREAS  -  OTHERWISE  EX- 
AMINE NEXT  AREA 


IF(L.EQ.3) 

L  =  L  +  1 

GC  TO  1210 


GG  TO  1300 


DETERMINE  IF  THERE  IS  A  CASE  IN  THE  SLEJECT  AREA 
REQUIRING  ONE  OF  THE  AREA'S  AVAILABLE  C-130S  -  IF 
SO,  INITIALIZE  THE  CALLING  PARAMETERS  ACCORDINGLY, 
CALL  SUBROUTINES  PLANE  AND  FILL  TO  SATISFY  THE  RE- 
QUIREMENT •-  IF  NO  CASE  REQUIREMENT,  GC  TC  SATISFY 
MISSION  REQUIREMENT 


GO 
GO 


TO 
TO 


1260 
1250 


127C 

1280 


C 

c 
c 
c 
c 
c 
c 


DC  1240  1=1,10 

IF(NCASA( I  ,3)  .EQ.O) 

IF(NCASA{ 1,3 )  .EQ.L  ) 

CONTINUE 

NACE=NCASA( 1,1) 

N  A  P  E  A  =  L 

NAREAS=L 

CALL  PLANE 

NPANE=NPLUSE 

CALL  FILL 

CASE  C-130  REQUIREMENT  IN  SUBJECT  AREA  HAS  BEEN 
SATISFIED,  IF  NC  FURTHER  REQUIREMENTS  CP  NO  FUR- 
THER C-13GS  IN  SUBJECT  AREA,  GO  TO  NEXT  AREA  - 
OTHERWISE  GO  TO  FILL  NEXT  REQUIREMENT  IN  PRESENT 
AREA 

IFCNPRT (L)  .EQ.O)  GO  TO  1290 
IF(NPA(  L) . EG.O)  GO  TO  1290 
GO  TO  1230 

THE  AREA  REQUIREMENT  FOR  ONE  CF  THE  SUBJECT  AREA'S 
AVAILABLE  C-130S  IS  FOR  A  MISSION.   DETERMINE  THE 
MISSION,  INITIALIZE  THE  CALLING  PARAMETERS  Fl 
SUBROUTINES  PLANE  AND  FILL  ACCORDINGLY  ANC  SATISFY 
THE  REQUIREMENT 


1260  DO  1270  1=1,20 


EQ 
EQ 

1) 


0) 
L) 


GO 
GO 


TO 
TO 


1290 
1280 


I F(NMISA( 1,3  ) 
I F( NMISAC I  ,3) 

CONTINUE 

N ISSN=NMISA(  I 

NAREA=L 

NAREAS=L 

CALL  PLANE 

NPANE=NPLUSE 

CALL  FILL 

MISSION  C-130  REQUIREMENT  IN  SUBJECT  AREA  HAS  BEEN 
SATISFIED,  IF  NO  FURTHER  REGUIREMENT  CR  NC  FURTHER 
C-130S  IN  SUBJECT  AREA,  GO  TC  NEXT  AREA  -  OTHER- 
WISE GO  TO  FILL  NEXT  MISSION  REGUIREMENT  IN  PRES- 
ENT AREA 


L29C 


IF(NPRT(L)  .EQ.O) 
IF (NPA( L ) .EQ.O) 
GC  TO  12 
IF(L.EQ.3)  GG  TO 


GC  TO  1.290 
GO  TO  1290 

1300 


130 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


L  =  L  +  l 

GC  TO  L2L0 


ALL  POSSIBLE  WITHIN  AREA  C-L3C  ASSIGNMENTS  HAVF 
BEEN  HADE.   FURTHER  ASSIGNMENTS  MUST  EF  MADE  BE- 
TWEEN AREAS.   C--130S  ARE  NOT  TO  BE  SENT  FRCM  CNE 
AREA  TO  SATISFY  PRIORITY  THREE  REQUIREMENTS  IN 
ANOTHER  AREA  SC,  FOR  ACCOUNTING  PURPOSES,  RECUCE 
THE  NUMBER  OF  TOTAL  C-130S  RECUIRED  IN  EACH  AREA 
AND  TOTAL  OVERALL  BY  THE  NUMBER  OF  PRIORITY  THREE 
CASE  AND  MISSION  C-130  REQUIREMENTS  FOR  CURRENT 
TIME  STEP  WHICH  HAVE  NOT  BEEN  SATISFIED 


C 

c 
c 
c 
c 

c 

c 
c 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


130C  DC  1302  1=1,10 

IF(NCASA( I ,2) .EQ.O)  GO  TO  130  3 
I F(NCASA( I  ,2  )  .EQ.3  )  GO  TO  1301 
GC    TO     13C2 

NPRT(NCASA{  1,3)  ) =N PRT ( NCASA (  1,3)  J-NCA SE { NC A SA ( I  ,1)  ,7)  + 
1NCASE(NCASA(  I  ,1) ,11  ) 

2  CONTINUE 

3  DC  1305  1=1, 2C 
IF(NMISA( I  ,2 )  .EQ.O)  GO  TO  1306 
IF(NMI5A( I ,2) .EQ.3)  GO  TO  1304 
GC  TO  1305 
NPRTt  NM  I  SA(  I  ,3)  )  =NPPT  (NMISA(  1,3)  )-NMISSN(  NM  ISAM  ,  I),  7) 

i+NMISSN (NMISA( I ,  I)  ,  11) 

5  CONTINUE 

6  N1PR  =  NPRT(  1)+NPRT(2)+NPRT(3) 


1301 

130 

130 


1304 


130 
130 


PRIORITY  THREE  C~13C  REQUIREMENTS  HAVE 

SEE  IF  ANY  FURTHER  REQUIREMENTS  EXIST 
WERED  REQUIREMENTS  ADJUSTMENT 
.  CONTINUE 


NOW  THAT 

BEEN  NEGATED 

IF  NOT,  GO  TO  UNANS., 

SEGMENT  -  OTHERWISE, 


IF(NTPR.EQ.O)  GO  TO  2000 

SEE  IF  A  C-130  REQUIREMENT 
C-130  AREA.   IF  NOT,  GO  TO 

IF(NPRT(2)  .EQ.O)  GC  TO  1410 


EXISTS  IN  Tl-F  CENTRAL 
CHECK  THE  NORTHERN  AREA 


A  C-130  REQUIREMENT  EXISTS  IN  THE  CENTRAL  C-130 
AREA  AND  THERE  IS  NOT  A  C-130  AVAILABLE  THERE.  DE- 
TERMINE WHETHER  THE  REQUIREMENT  IS  FCP  A  CASE  OR  A 
MISSION,  IDENTIFY  THE  SUBJECT  CASE  OR  MISSION, 
AND  DETERMINE  WHETHER  IT  IS  CLOSER  TC  THE  NORTHERN 
CR  SOUTHERN  C-130  AREA.   IF  A  PLANE  IS  AVAILABLE 
IN  THE  CLOSEST  AREA,  TAKE  IT  -  OTHERWISE  TAKE  THE 
PLANE  FROM  THE  OTHER  AREA.   INITIALIZE  THE  CALLING 
PARAMETERS  FOR  SUBROUTINES  PLANE  AND  FILL  ACCORD- 
INGLY AND  SATISFY  THE  REQUIREMENT 


132 

133 


C 

c 
c 


1310  CO  I 
IF(N 
IF(N 

IF(N 
CCNT 
IF(N 

11340 
1  F  ( N 
NAPE 
GO  T 
IF(N 
NARE 

NARE 
CALL 
NFAN 
NACE 
CALL 


320  1=1,10 
CASA( I ,3) .EQ 
CASA(  1,2)  .EQ 
CASA( I ,3) .EQ 
INUE 
CASE(NCASA( I 


.  0) 
.3) 
.2  ) 


GO 
GO 
GO 


TO 
TO 
TO 


1360 
1360 
1330 


1  ),  12)  .LT.NCASE(NCASA(  I ,  1)  ,14)  )  GO  TO 


133 
134 

13  5 


PA(3).EQ.O)  GO  TO  1340 

A  =  3 

0  1350 

PA(  I)  .EQ.O)  GO  TO  1335 

A=l 

AS  =  2 

PLANE 
E=NPLUSE 
=  NCASA( I  ,1 ) 

FILL 

IENT    FOP    A    C-13  0 
AREA    HAS    BEEN     SATISFIED.        IF 


NC 


•  t  o  ft  (_     r  -  i 
JRTHER    C-i  ARE 
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REQUIRED,  GO  TO  THE  UNANSWERED  REQUIREMENTS  AD- 
JUSTMENT SEGMENT  -  IF  MORE  C-130S  ARE  FFQUIRFC  IN 
CENTRAL  C-L30  AREA  GO  TC  FILL  THEM  -  CTFERWISE,  GO 
TO  CHECK  NORTHERN  AREA 


C 

c 
c 
c 

c 
c 
c 

c 


c 
c 
c 
c 

c 


L36C 


1370 

1380 


139C 
1395 
1400 

1405 


IF  (NT 
IFCNP 
GC  TO 
DC  13 
I  F(NM 
IF(NM 
CCNT  I 
I  F(NM 
1TO  13 
IF(NP 
NAREA 
GO  TO 
IFCNP 
NAREA 
NAREA 
CALL 
NPANE 
N  I  S  SN 
CALL 
CCNT  I 


PR  .EQ 
RT  (2) 
13)0 
70  1  = 
ISAC  I 
ISAC  I 
NUE 
ISSN  I 
95 
A(3)  . 


.0)  GO  TO  2000 
.EQ.O)  GC  TO  1410 

L,  20 

,2)  .EQ.3  )  GO  TO  1405 
,3).EQ.2)  GO  TO  1330 

NMISACI  ,1),  12J.LT  .NMISSMNM  IS  AC  I,  I),  14)  )  GO 

EQ.O)  GO  TO  1395 


1400 
AC  1  )  .EQ.O)  GO  TO  1390 
=  1 
S=2 
PLANE 
^•NPLUSE 
=NMISACI,1) 
FILL 
NUE 


MISSION  REQUIREMENT  FOR  A  C-13C  IN  THE  CENTRAL 
C-130  AREA  HAS  BEEN  SATISFIEC.   IF  NC  FLFThEP 
C-130S  ARE  REQUIREO,  GO  TO  THE  UNANSWERED  REQUIRE- 
MENTS ADJUSTMENT  SEGMENT  -  IF  MORE  C-13CS  ARE  RE- 
QUIRED IN  CENTRAL  C-130  AREA  GC  TO  FILL  THEM  - 
OTHERWISE  GO  TO  CHECK  NORTHERN  AREA 

IF(NTPR.EQ.O)  GO  TO  2000 
IFCNPRT  (2)  .EQ.O)  GO  TO  1410 
GC  TO  1360 

HAVE  REQUIREMENTS  FOR  C-130S  IN  EITHER  THE  NORTH- 
ERN CR  SOUTHERN  C-130  AREA  CR  BOTH.  E E G I N  CHECK- 
ING FOR  THE  NORTHERN  AREA  AND  THEM  THE  SOUTHERN. 


141C 


C 
C 
C 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C 


L=l 

LL  =  3 


IF  NO  C-130S  REQUIRED  IN  SUBJECT  AREA 
GO  TO  CHECK  OTHER  AREA  (SOUTHERN) 


C NORTHERN) 


1420  IFCNPRTCl.)  .FQ.O)  GC  TO  1520 

A  C-130  REQUIREMENT  EXISTS  IN  THE  SUBJECT  C-130 
AREA  AND  THERE  IS  NOT  A  C-130  AVAILABLE  TFERE.  DE- 
TERMINE WHETHER  THE  REQUIREMENT  IS  FCR  A  CASE  CR  A 
MISSION,  IDENTIFY  THE  SUBJECT  CASE  OR  MSSION  AND 
DETFRMINE  IF  A  C-130  IS  AVAILABLE  IN  THE  CENTRAL 
C-130  AREA;  IF  IT  IS,  TAKE  IT,  OTHERWISE  TAKE 
C-130  FROM  THE  CTHER  AREA  (FURTHEST  AWAY)  -  IN- 
ITIALIZE THE  CALLING  PARAMETERS  FOR  SLEPQUTINES 
PLANE  AND  FILL  ACCORDINGLY  AN'C  SATISFY  TFE  RE- 
QUIREMENT 


1430  DC  1440  1=1, 10 


144C 
144  I 


144  2 

1445 

1446 


IFCNCASAC I ,3). EQ.O)  GO 
IFCNCASAC  I  ,2)  .EQ.3)  GO 
IFCNCASAC 1,3) .EQ.L)  GC 
CCNT I NUE 
DC  1442  1=1,20 
IFCNMISAC I ,2) .EQ.3 )  GO 
IFCNMISAC I ,3) .EQ.L)  GO 
CCNT I NUE 
NACE=NCASA(I ,1 > 
GC  TO  I's'-ic 
NISSN=NMISA( 1,1) 


TO 
TO 
TO 


TO 
TO 


1441 
1441 
1445 


1465 
1446 
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1448 


145C 
1460 


C 
C 
C 
C 
C 
C 
C 
C 
C 


146 


1520 


C 

c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 

c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


16CC 


IF(NPA(2 ) . EQ.O)  GC  TO  1450 

NAREA=2 

GC  TO  1460 

NAREA=LL 

NAREAS=L 

CALL  PLANE 

NACE  =  NCASA( I  ,  1) 

NPANE=NPLUSE 

CALL  FI LL 

CCNTINUE 

EITHER  A  CASE  OP  A  MISSION  C-120  REQUIREMENT  HAS 
BEEN  SATISFIED  IN  THE  SUBJECT  AREA.    IF  NC  MCPE 
C-130S  ARE  REQUIRED  GO  TO  UNANSWERED  RETIREMENTS 
ADJUSTMENT  SEGMENT.   IF  MORE  C-130  RECUIREMCNTS 
EXIST  IN  SUBJECT  ARFA  GO  TO  FILL  THEN.   IF  THERE 
ARE  NO  FURTHER  C-130  REQUIREMENTS  IN  SUBJECT  AREA 
GO  TO  FILL  REQUIREMENTS  IN  FINAL  AREA  (SOUTHERN) 

IF(NTPR.EQ.O)  GO  TO  2000 

IF(NPRT(L) .EQ.O)  GC  TO  1520 

GO  TO  1430 

CCNTINUE 

L  =  3 

LL=1 

GC  TO  1420 

CCNTINUE 

THERE  ARE  NOT  ENOUGH  C-130S  AVAILABLE  TC  SATISFY 
ALL  THE  REQUIREMENTS  FOR  THE  CURRENT  TINE  STEP  SO 
ASSIGNMENTS  OF  THE  AVAILABLE  C-130S  WILL  HAVE  TC 
BE  BY  CASE  AND  MISSION  PRIORITIES.  CALL  SUBROUTINE 
ASSIGN  TO  TRY  AND  INSURE  THAT  EVERY  PRICRITY  CNE 
CASE  HAS  AT  LEAST  ONE  AIRCRAFT  ASSIGNED 

JPRI=1 
JCEC=1 
CALL  ASSIGN 

IF  THERE  ARE  NO  MOPE  C-130S  AVAILABLE,  GO  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TO  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  ONE  MISSICN  HAS  AT 
LEAST  ONE  AIRCRAFT  ASSIGNED 


0)  GO  TC  2000 


IF(NTPA.E 
J  PR  1=  1 
J  C  EC  =  4 
CALL  ASSIGN 

IF  THERE  ARE  NC  MOPE  C-130S  AVAILABLE*  GC  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBRCUTINE  ASSIGN  TC  TRY 
AND  BRING  EVERY  PRIORITY  ONE  CASE  UP  TO  AT  LEAST 
50  PERCENT  OF  THE  C-130S  IT  REQUIRES 

IF(NTPA  .EQ.O)  GO  TO  2000 
J  PR  1  =  1 
JCEC=2 
CALL  ASSIGN 

IF  THERE  ARE  NO  MORE  C-130S  AVAILABLE,  GO  TC  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBRCUTINE  ASSIGN  TO  TRY 
AND  INSURE  THAT  EVE«Y  PRIORITY  TWO  CASE  HAS  AT 
LEAST  ONE  AIRCRAFT  ASSIGNED 

IF(NTPA.EQ.O)  GO  TC  200C 

JPRI=2 

JCEC=1 

CALL  ASSIGN 

IF  THERE  ARE  NC  MOPE  C-130S  AVAILABLE,  GC  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBRCUTINE  SSSIGN  TC  TDv 
AND  BRING  EVERY  PRIORITY  TWO  CASE  UP  TC  AT  LEAST 


133 


c 

c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


c 
c. 
c 
c 

c 

c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 


50  PERCENT  OF  THE  C-130S  IT  REQUIRES 

IF(NTPA„EQ.O)  GO  TO  2000 

JPRI=2 

JCE02 

CALL  ASSIGN 

IF  THERE  ARE  NG  MORE  C-130S  AVAILABLE,  CC  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TO  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  TWO  MISSICN  HAS  AT 
LEAST  ONE  C-L30  ASSIGNED 


IF(NTPA.EG). 
JFRI=2 
JCEC=4 
CALL  ASSIGN 


0)  GO  TC  2000 


IF  THERE  ARE  NG  MORE  C-130S  AVAILABLE,  GO  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TO  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  THREE  CASE  HAS  AT 
LEAST  ONE  C-130  ASSIGNED  IF  C-130  AVAILABLE  IN 
CASE  AREA 

IF(NTPA  .EQ.O)  GO  TC  2000 

JPRI=3 

JCEC=~1 

CALL  ASSIGN 

IF  THERE  ARE  NO  MORE  C-130S  AVAILA3LE,  GO  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TO  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  THREE  MSSION  HAS 
AT  LEAST  ONE  C-130  ASSIGNED  IF  C-130  AVAILABLE  IN 
MISSICN  AREA 

IF(NTPA.EQ.O)  GO  TO  2000 

JPRI=3 

JCEC=10 

CALL  ASSIGN 

IF  THERE  ARE  NO  MORE  C-L30S  AVAILABLE,  GO  TC  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TO  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  ONE  CASE  IS  FILLEC 
WITH. THE  NUMBER  OF  C-130S  IT  REQUIRES 

IF(NTPA.EQ.C)  GO  TC  2000 
JPI  =  1 
JCEC=0 
CALL  ASSIGN 

IF  THERE  ARE  NC  MORE  C-130S  AVAILABLE,  GO  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TC  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  ONE  MISSICN  IS 
FILLED  WITH  THE  NUMBER  OF  C-130S  IT  RECUIRES 

IF(NTPA.EQ.O)  GO  TO  2000 
J  P  R  I  =  1 
JCEC-^5 
CALL  ASSIGN 

IF  THERE  ARE  NCMORE  C-130S  AVAILABLE,  GO  TO  NEXT 
SEGMENT  ,  OTHERWISE  CALL  SUBROUTINE  ASSIGN  TC  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  two  CASE  IS  FILLEC 
WITH  THE  NUMBER  OF  C-130S  IT  REQUIRES 

IF(NTPA.EC.O)  GO  TC  2000 

JPRI=2 

JCEC=0 

CALL  ASSIGN 

IF  THERE  ARE  NG  MORE  C-  130S  AVAILABLE,  GC  TC  NEXT 
SEGMENT  ,  OTHcRWISP  CALI  SUPPOUTINI  '  !GN  T^-  TRY 
AND  INSURE  THAT  EVERY  PRIORITY  TWO  MISSICN  IS 
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c 

c 


FILLED  WITH  THE  NUMBER  OF  C-130S  IT  REQUIRES 


2000 


C 

c 
c*** 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


IF(NTPA.FQ.O) 

JFRI=2 

JCEC=5 

CALL  ASSIGN 

CCNTINUE 


GO  tq  2000 


**  #  :J*#*  ***  £4*******  ******!{ :  itix  *  *  *  * *  #***■*:***  *  $  a  ^  ■$  o.  ^  o.  *  ...  j.  j.  £  ^  ^ 

*      UNANSWERED  REQUIREMENTS  ADJUSTMENT  SEGMENT     **** 

**  *  **  **  **  **  ****  ***  Axe  *  **  **************************#*$,(,*  jft  * 


THE  FUNCTION  OF  THE  UNANSWERED  REQUIREM 
JUSTMENT  SEGMENT  IS  TO  EXAMINE  EACH  MS 
CASE  WHICH  REQUIRED  C-L20S  DURING  THE  C 
STEP  BUT  DID  NOT  RECEIVE  THEM.  FOR  CAS 
C-L30  DEPARTURE  TIMES  ARE  DETERMINED  AN 
INTO  THE  SUBJECT  CASE  ACCOUNTING  VECTCR 
MISSIONS  IT  IS  DETERMINED  WHETHER  THE  S 
SION  CAN  BE  HELD  PAST  ITS  REGLLAR  TAKE 
IF  IT  CAN  BE  HELD  THEN  A  NEW  TAKE  OFF  T 
TERM  I  NED  FOR  IT  AND  IS  ENTER  EC  IN  ITS  A 
VECTOR.  IF  THE  MISSION  CAN  NOT  BE  HELD 
ARE  NOT  ANY  PLANES  ASSIGNED  TO  IT,  IT  I 
IF  IT  HAS  AT  LEAST  ONE  PLANE  ASSIGNEC  T 
NOT  CANCELLED  BUT  A  NEW  TAKE  OFF  TIME  I 
TERMINED  FOR  IT 


BNTS 
S  ICN 
LRREN 
ES,  N 
C  ENT 
S.  F 
UGJEC 
CFF  T 
IVE  I 
CCCUN 

AND 
S  CAN 
C  IT, 
S  NOT 


AD- 
AND 

T  TINE 
EW 

ERED 
OR 

T  MIS- 
I  M  E . 
S  DE- 
TING 
THERE 
CELLED 

IT  IS 

DE- 


DETERMINE 
TIME  STEP 
CHECK    FOR 


WHETHER  ANY 
AND  DID  NOT 
MISSIONS 


CASES     REQUIRED    C-13CS    THIS 
GET    THEM.        IF     NCT,    GO    TO 


DO    202  0    I=1,1C 
IFCNCASAU,  L)  .EQ 


0)  GO  TO  2030 


A  CASE  THAT  REQUIRED  A  C-130  THIS  TIME  STEP  DID 
NOT  RECEIVE  ONE.  DETERMINE  A  NEW  TINE  CF  C-13C 
TAKE  OFF  FOR  THE  SUBJECT  CASE  DEPENDING  ON  WHETHER 
IT  IS  A  CONTINUOUS  ON-SCENE  RELIEF  TYPE  CP  NOT, 
THE  TIME  OF  DAY  AND  DISTANCE  TO  THE  CASE 


NOT 
SCENE 


C 

c 
c 
c 

c' 

c 

c 

c 

C 


201 
202 
203 


IF(NCASE(NCASA( I  ,  1 } , 2)  .  EQ .  1  ) 
T  IFLY=FLOAT(NCASE  (NCASAd  ,  L)  , 
L/290.0 
IF(NDAYTI+TIFLY. 
NCASE(NCASA( 1,1) 
GC    TO    2C20 
NCASE(NCASA( 1,1) 
CCNTINUE 
DO    2140    I =1,20 


GO    TC    2010 
11+NCASE(NCASA(I 


1)  ,6)  )  ) 


LE.16)  GO  TO  201C 
,9  )=NCTS  +  30-NDAYTI 

,9)=NCTS+1 


DETERMINE    WHETHER    ANY    MISSIONS    REQUIRED    C-130S 
THIS    TIME    STEP    AMD    DID    NOT     GET    THEM 


2040     I  F(hMISA( I  ,1  )  .EQ.O)     GO    TO    2150 

A  MISSION  THAT  REQUIRED  A  C-130  THIS 
NOT  RECEIVE  ONE.  SEE  WHETHER  IT  CAN 
ANOTHER    TAKE    CFF    TIME    OR    NOT    AND    ACT 


C 
C 

c 

c 

c 
c 

C 

c 


IF(NMISSN(NMISA( I 
GO    TO    2140 


1 ) ,2)  .GT  .0)  GO  TC  2050 


TIME  STEP  DID 
BE  HELD  FOR 
ACCORDINGLY 


IF 


THE  MISSION  CAN  BE  HELD  FOR  AT  LEAST  CNE  HOUR. 
IT  IS  A  PRIORITY  ONE  MISSION  SET  ITS  N c XT  C-130 
TAKE  OFF  TIME  AS  THE  NEXT  TIME  STEP.   GO  TO  UPDATE 
THE  SUBJECT  MI  SSI CN  VECTrR  TC  INDICATE  NEW  C-130 
REQUIREMENT  TIME,  REDUCED  HOLDING  TINE  AND  NEV, 
TIME  OF  MISSION  CCMPLE  I 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


2050     IF(NMISSN(NMISA(  I  ,  LJ ,  I)  .EQ.  1)     GC    TC    2060 


2060 

2070 
2080 


C 

c 

c 
c 


c 
c 
c 

c 

c 


2090 


2100 
2L1C 
2L2C 

213C 

2140 


215C 
2155 


216C 


HAVE  A  PRIORITY  TWO  OR  THREE  MSSION  TE/5T  CAN  PE 
HELD.   DETERMINE  NEW  C-130  TAKE  nFF  TIME  FOR  SUB- 
JECT MISSION  BY  TAKING  INTO  ACCOUNT  TEE  NUMBER  OF 
HOURS  IT  CAN  BE  HELD  AND  TIME  OF  DAY.   IF  POSSIBLE 
WAIT  FOR  NEXT  REGULAR  MISSION  TAKE  OFF  TINE.   IF 
THIS  ISN'T  POSSIBLE.  MAKE  TAKE  OFF  TIME  THE  NCXT 
TIME  STEP.   UPDATE  THE  SUBJECT  MISSICN  ACCCUNTING 
VECTOR  TO  INDICATE  NEW  C-130  REQUIREMENT  TIM»=,  RE- 
DUCE C  FOLDING  TIME  AND  NEW  TINE  OF  MISSICN  COM- 
PLETION ACCORDINGLY 


IF(NMI 

IF(NDA 

NMISSN 

NMISSN 

NMISSN 

GC  TO 

NMISSN 

NNISSN 

NMISSN 

GC  TO 

NCEC=3 

IFtNMI 

GC  TO 

NMISSN 

NMISSN 

NMISSN 


SSN 
YTI 
(  NM 
{  NM 
(  NM 
2  09 
(  NM 
(  NM. 
(  N  M 
209 
1-N 
SSN 
214 
(NM 
(  NM 
(  NM 


{  NM 

.GE 

ISA 

ISA 

ISA 

0 

I  SA 

ISA 

ISA 

0 

DAY 

(NM 

0 

ISA 

ISA 

ISA 


ISA( I ,1) ,2).LT.4)  GG  TC  2060 
.12)  GO  TO  2070 

(I, 1  J ,  10)=NMISSN(NMISA( I, 1)  T  lC)+4 
(I  ,  1  )  »  9  )  =  N  N  I  S  S  N  (  NM  I  S  A  (  I  ,  I  )  ,  9  M4 
( I ,  I)  , 2)=NMISSN(NMI SA(I  ,1)  »2)-4 

(I,i),9)=NMISSN(NMISMI,L),9)+l 
( I ,  1 ),  LO)  =  NMI SSN  (NM  ISM I  ,  1)  ,  lC)  +  i 
(I,1),2)=NMISSN(MMISA(I,1),2)-1 

TI 

ISA(  I  ,1  )  ,2)  .GE.NDEC )  GOTO  2080 

(  It  1  )  , 9)= NMISSN (NM ISA (I  ,  1)  ,  9)+NDEC 
(I ,1) t 10)=NMISSN(NMISA(I ,L)f LOk+NCEC 
( I,  1) , 2)  =  NMISSN(NMI  SA(I  ,1)  , 2)-NDEC 


ZERO  MISSION 
JUST  HELD 


ACTICN  VECTOR  OF  MISSION  TEAT  WAS 


DC  2110  J=I ,20 

IF(NMISA(J+l,  li  .EQ.O)  GO  TO  212C 

DC  2100  L=L,3 

NMISAtJ ,L)=NMISA( J+1,L) 

CONTINUE 

CONTINUE 

DO  2130  L=l,3 

NNISA(J,L)=0 

CONTINUE 

GO  TO  2040 

CONTINUE 

ALL  MISSIONS  THAT  COULD  BE  HELD  HAVE  BEEN.  NOW 
INVESTIGATE  THOSE  MISSIONS  TEAT  CAN  NCT  BE  HELD 
AND  DIDN'T  RECEIVE  A  REQUIREC  C-130  TFIS  TIME  STEP 


DC  2210  I=li20 

IF(NMISA(  I , I )  .EQ.O)  GO  TO  2220 
I F ( NM I S  SN { NM I S  A (  I ,  1 ) , 1 1 ) . GT  .  0  ) 
GC  TO  2210 


GC  TO  2160 


217C 
2180 
2190 


HAVE  A  MISSION  THAT  CAN  NOT  BE  HELD  BUT  HAS  AT 
LEAST  ONE  AIRCRAFT  ALREADY  ASSIGNED  TC  IT.   DETER- 
MINE THE  PORTION  OF  MISSION  FLIGHT  HCURS  THAT  WILL 
NOT  BE  COVERED  AND  TALLY  THEM.   ZERO  TFE  MISSION'S 
ACTICN  VECTOR  BUT  DC  NOT  CHANGE  ITS  ACCOUNTING 
VECTOR 

TICOMA=FLOAT(NMI SSN(NMISA( I ,1 ) , S ) ) 

T  IC0MB=FL0AT(NMI5SN(NMISA( I  ,  1 )  , 7 ) -NM I SSN ( NN I SA ( I  , 1 )  , 

LI) )/FL CAT (NMISSN (NM ISA (1,1 ),7) ) 

NNHLST=NMHLST+TIC0MA-(TIC0MA*TICCNB)+0.5 

DC  2180  J=I,20 

IF(NMISA( J+l ,1) .EQ.O)  GO  TO  2190 

DC  2170  L=l,3 

NMISA( J  ,L)=NMISA( J  +  1,L  ) 

CONTINUE 

DC  2200  L=1t3 
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c 

c, 
c 
c 
c 
c 
c 
c 


2200 
2210 


NPISA( J,L)=0 
CCNTINUE 
GC  TO  2155 
CONTINUE 

CHECK  ALL  MISSIONS  WITH  A  C-130  REQUIP-EM-NT  TIME 
LESS  THAN  OR  EQUAL  TO  THE  CLRRENT  TIKE  STEP.   IF 
ANY  OF  THESE  MISSIONS  00  MOT  HAVE  ANY  AIRCRAFT 
ATTACHED  TALLY  THE  NUMBER  OF  FLIGHT  FCUf^S  NOT  COV- 
ERED AND  CANCEL  THE  SU5JECT  MISSION  (ZERC  ITS 
ACCOUNTING  VECTOR) 


2220 


100 


.9) 
t9) 


EQ 
LE 


0)  GO 
NCTS) 


22 
22 


22 
22 
22 

22 
22 
23 

C 
C 

c** 
c** 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


30 
4C 


50 
6C 
7C 

8C 
9C 
00 


ID  .ECO)  GO  TO  2240 


8) 


DO  2290  1=1, 
IF(NMISSN( I 
IF(NMISSN(I 

GC  TO  2290 
IF(NMISSN( I 

GC  TO  2290 

NMHLST=NMHLST+NMISSN(  I 

DC    2260    J=I,100 

IF(NMISSN( J+l, 1) .EQ.O) 

CO    22  50    M=l,16 

NMISSN( J,M)=NMI SSN( J+l ,f) 

CCNTINUE 

CCNTINUE 

DC    2280    M=l,16 

NMISSN( J,M)=0 

CCNTINUE 

CONTINUE 

CCNTINUE 


TO 
GO 


2300 
TO    2230 


GO    TC-2:~" 


i  4  A  t-  A  A  A  A  A  A  A  A  *  A  i:  A  A  ?i : 

**  STATION 

*  A  A  A  A  A  A  i<  A  A  A  A  A  A .-■;  A  A  A  ; 


:  A  4  *  ->z  ;'-  A  A  A  4  A  A  A  A  A  A  *  A  ^  A  A  *  4  *  A  * 

TO  STATION  SHIFT  SEGMENT 


•  »>»  •'»  *v  »v  -x»  y»  ^u  *  « » 


, .  i.  -i*  j,  .  < 


*i: 


*  A  A  i;  it  A  A  A  *  A 


THE  FUNCTION  OF  THE  STATION  TC  STATICN 
MENT  IS  TO  TAKE  ANY  C-130S  THAT  ARE  IN 
FLY"  STATUS  AND  ARE  AT  A  STATION  OTHER 
HOME  STATION  BETWEEN  0800  AND  1500  ANC 
TO  THEIR  HOME  STATIONS 


SHIFT  SEG- 

A  "READY  TO 
THAN  THEIR 
SEN'C  TEEM 


IF  THE  TIME  OF  DAY  IS  NOT  BETWEEN 
TO  RON  DETERMINATION  SEGMENT 


080C  AND  1500  GO 


1F(NDAYTI 
IF(NDAYTI 


LT.8)  GO  TO  2430 
GTcl5)  GO  TO  2430 


FIND  ALL  PLANES  IN  A  "READY  TC  FLY"  STATUS  AND 
CHCCK  THEIR  LOCATIONS.   If1  THEY  ARE  NOT  AT  THEIR 
HOME  STATIONS  INITIALIZE  THE  CALLING  PARAMETERS 
FOR  SUBROUTINE  FILL  ACCORDINGLY  AND  SEND  THE 
PLANES  TO  THEIR  HOME  STATIONS 


2400 


24 
24 


20 
3G 


DO  2420  1=1, NPI 
IF(NPLANE(I,2) . 
IF(NPLANE( 1,9). 
NRTN=1 
NPANE=I 
CALL  FI LL 
CC NTINUE 
CCNTINUE 


S 

GT  .0)  GO  TO 

EQ. NPLANEt  I 


2420 
1)  )  GC 


TO  2420 


C** 

C** 

c  *  * 

c 
c 
c 
c 


**  RON  DETERMINATION  SEGMENT  **** 


THE  FUNCTION  OF  THE  RON  DETERMINATION  SEGMENT  IS 

to  i  c-i3os  " 

STATION  OTHER  ThAN  THEIR  HOME  STATI      .J  TALLY 
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c 
c 
c 
c 
c 
c 
c 


THE  INFORMATION 


C 

c 
c 
c 
c 
c 


24 

24 


4C 

5C 


30 
30 
30 


C 
C 

c 
c 
c 
c 


30 
30 
30 


CC 
10 
20 


30 
4C 
5C 


30 


C 

c 

c* 

c* 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

50 


IF  THE 
ACTION 


TIME  OF 
VECTORS 


CAY  IS  NOT  0  100  GO  TO  ZEPC  ALL 


IF(NDAYTI.NE.l)  GC 
DO  2440  I=1,NPIS 


TO  2450 


IDENTIFY  ALL  C-130S  THAT  ARE  NOT  FLY  I 
THEY  ARE  AT  THEIR  HOME  STATICNS.   IF 
AT  THEIR  HOME  STATIONS  TALLY  AN  OVERN 
THE  STATION  WHERE  THEY  ARE  LCCATED  AN 
NIGHT  STAY  AWAY  FROM  THEIR  HOME  STAT  I 

IF(NPLANE( I ,2) .GT.3)  GO  ~r0  2440 
IF(NPLANE( I, 2)  . EQ .  I)  GO  TO  2440 
IF(NPLANE( I ,1 ) .EQ.NPLANEt  I  ,9 )  )  GC  TO  2440 
NPONA(NPLANE(  1,9)  )  =NRONA ( NPLANE  (  I  ,9) )  +  L 
NRCNF(NPLANE(  I, 1  )  } =NRONF ( NPLANE (  I,  1)  )  +  l 
CONTINUE 
CONTINUE 

ALL  ACTION  THAT  IS  TO  BE  TAKEN  DURING 
STEP  HAS  BEEN  COMPLETED.  ZERO  THE  MI 
CASE  ACTION  VECTOR  ARRAYS  IN  PREPARAT 
NEXT  TIME  STEP 


NC  AND  SEE  IF 
THEY  ARE  NOT 
IGHT  STAY  AT 
C  £N  OVER- 
CN 


CURRENT  TIME 
SSI  CM  AND 
ION  FOR  THE 


TO  3020 


GO  TO  3050 


DC  3010  1=1,20 

IF(NMI SA(  I  ,L }  .EQ.O) 

DO  3000  J=l,3 

NMSA(  I  ,  J)=0 

CONTINUE 

CONTINUE 

CONTINUE 

DC  3040  I =1,  10 

IF(NCASA( 1,1) .EQ.O) 

DC  3030  J=l,3 

NCASAd  ,J)=0 

CONTINUE 

CONTINUE 

CONTINUE 


FOR  EACH  C-130  THAT  WAS  IN  A  "DOWN  IF 
STATUS  THAT  WAS  MOT  CALLED  OR  "DOWN  D 
ER"  STATUS,  CHANGE  STATUS  FOR  NEXT  TI 
INDICATE  "READY  TC  FLY" 


CALLED" 

LE  TC  WEATH- 
ME  STEP  TO 


DC  3060  I=1,NPIS 
IF(NPLANE( I ,2) .EQ.3) 
IF ( NPLANE ( 1,2) .EQ. 9) 
6C  CONTINUE 


•  *X*   ■si*  «J*>  «A<  »V  -^  J*  »V  *J-*  »''  >V  *A*  *V  ■**«• 


*Xr    -£r    *Xr   -J*  *£r     *}*    +X* 


-•• 


NPLANEU  ,2  )=0 
NPLANE (I ,2) =C 


:  jfc :';  5';  x:  %  it  £  rfs  A  £  sH  3k  ^  A  &  ■&  >"t  A  : 


-■    j  -  l  -  -    ■ 


it  *  -k  A  A  »:  jj;  sjr  A  :k  i:  2,1  sjs 


CALENDAR  UPDATE  SEGMENT 


THE  FUNCTION  OF  THE  CALENDAR  UPDATE  S 
UPDATE  THE  TIME  STEP,  TIME  OF  DAY  AND 
AS  REQUIRED,  AFTER  EACH  TIME  STEP.  I 
THE  PROGRAM  TO  TERMINATE  IF  TFE  REQUI 
TIME  STEPS  HAVE  BCEN  RUN,  TO  START  RE 
THE  START  UP  PERIOD  HAS  BEEN  COMPLETE 
CHECK  FCR  A  NEW  MCNTH  ON  THE  FIRST  HC 
NEW  DAY  AFTER  THE  START  UP  PERIOD  HAS 
COMPLETED 


ECMENT  IS  TO 

CAY  OF  WEEK, 
T  ALSO  SHIFTS 
PEC  NUMBER  CF 
CCRD  RUNS  IF 
C  AND  TO 
LR  CF  EACH 
BEEN 


INCREASE  THE  TIME  STEP  COUNTER  BY  ONE 
00  NCTS=NCTS+l 
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c 
c 
c 
c 
c 


IF  SUFFICIENT  TIME  STEPS  HAVE  BEEN  RUN  GO  TO  TER- 
MINATE RUN.  IF  NOT,  CHANGE  TIME  OF  C/>V  INDICATOR 
AND  DAY  OF  WEEK  INDICATOR  IF  NECESSARY 


C 

c, 
c 
c 
c 
c 
c 

I 

c' 

c 

c 

c 

c 

c 


IF(NCTS  .EQ.N)  GO 

NCAYTI=NDAYTI+I 

IFtNnAYTI.LT.25) 

NCAYTI=-"  L 

NCAY=NOAY+l 

IF(NDAY.LT.S)  GO 

NCAY^l 


TO  5680 
GO  TO  5020 


TO  5020 


CHECK  TO  SEE  IF  IN  START  UP  PERIOD  ANC  IF  SO, 
WHETHER  IT  IS  NOW  COMPLETED.   IF  NOT  IN  START  UP 
PERIOD  AND  NEW  TIME  OF  CAY  IS  NOT  0  100  JUST  GO  FCR 
ANOTHER  RUN.   IF  THE  TIME  OF  DAY  IS  CICC  GO  TO 
THE  OCCURRENCE  RATE  CHANGE ■ SEGMENT 

)20  IF(NSTUP.EQ.O)  GO  TO  5040 

IF  START  UP  PERIOD  HAS  JUST  eEEN  COMPLETEC  GC  TC 
ZERO  THE  REQUIRED  TALLY  COUNTERS  AND  CAKE  FIRST 
RUN  FOR  RECORD.   IF  START  UP  PERIOD  IS  NCT  COM- 
PLETED YET  JUST  GO  FOR  ANOTHER  RUN 


IF(NCTS.EQ.NSTUP) 

GC  TO  ICO 
5030  NSTUP=0 

GC  TO  050 
5040  IF(NDAYTI 

GC  TO  100 
510C  CONTINUE 


GO  TO  5030 


Q.l)  GO  TO  5100 


MssfcsksjcA  &:$:;£  #:£:}!  Ai-.  '■  *t  >s-':  A~~  :<:  A  A.  AAA  A  A  A  A  A  A  A  A  A  A*  *  *  *  *  *  $  %  *  *  A*  *  t  $  #* 

OCCURRENCE  RATE  CHANGE  SEGMENT 


C 
C 

£  A  %  A  A 
£  *  A  A  A 

Q  •':  :p  ^¥^^4*^^)|! .-':  A  A  A  A  .-'-   .     je  A  xc  A  A  A  A  Xfi  :':  A  '^  *'•  *  —  ^  A  ~-  A  -':  *'•  A  A  A  A  A  A  A  A  *  A  A  A  A  A  &  -s  *  A 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


THE  FUNCTION  OF 
IS  TO  DETERMINE 
IDENTIFY  THE  NEW  MONTH 
RATE  FACTOR  INPUTS  AND 
RAMETERS  ACCORDINGLY. 
THE  THIRD  MONTH  (MARCH) 
ERN  MOST  STATION  WITH  C 


THE  OCCURRENCE  RATE  CHANGE  SEGMENT 
WHEN  A  MONTH  HAS  BEEN  COMPLETED, 
AND  CHANGE  THE  CCCURRENCE 
OTHER  MONTHLY  VARIABLE  PA- 
ALSO,  AT  THE  BEGINNING  OF 

ONE  C-130  FRCN  THE  NCRTH- 
-130S  IS  DETACHEC  FOR  ICE 


PATROL  THROUGH  THE  SIXTH  MONTH  (JUNE) 


DETERMINE  THE  TIME  STEP  WITHIN  THE  Y'EAR  OF  RECORD 
BEING  RUN  AND  THEN  SEE  IF  A  NEW  MONTH  TS  BEING 
STARTED.   IF  NOT,  JUST  GO  TO  MAKE  ANOTHER  RUN.   IF 
A  NEW  MONTH  IS  STARTING  GO  TC  IDENTIFY  TEE  MONTH 
AND  CHANGE  THE  MONTHLY  VARIABLE  PARAMETERS 


510  1 


NRA 
IF( 
NRA 
CON 
IF( 
IF( 
IF( 
IF( 
IF( 
IF( 
1F( 
IF( 
IF( 
IF( 
IF( 
IF( 


TEC  = 

NYE  A 
TEC  = 
TINU 
NRAT 
NRAT 
NRAT 
NRAT 
NRAT 
NRAT 
NRAT 
NRAT 
NRAT 


NCT 

R.L 

NRA 

E 

t  C  . 

EC. 

EC. 

EC. 

EC. 

EC. 

EC. 

EC. 

<:r  . 

EC. 

err 


S-(8760* 
T.10)  GO 
TEC-1 


NYEAR)-NSTUPK 
TO    5101 


EQ 
EQ 
EQ 
EQ 


EC.EQ 


745) 
1417) 
2161) 
2801  ) 
3625) 
EQ.434  5) 
EQ.5089) 
5833) 

729  7) 
8017) 
876  1  ) 


GO  TO  51 

0  5 


GO 
GO 
GO 
GO 
GO 
GO 


-_  ^«  • 
EQ. 

EQ. 


"C 

'0 
0 
0 
0 

GO  TO 
"0 
"0 

" 

GO  TO 


r-n 

GO 


20 
140 

500 
520 
540 
560 
580 
600 
6  20 
640 

o80 


139 


512C 


C 

C 

c 
c 
c 
c 
c 
c 


514  0 


c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 


5160 
518C 


520C 


5220 
524C 
5260 

528C 

5200 


C 

c 
c 
c 
c 
c 
c 
c 


522C 
5340 


5360 
5390 


54CC 
542C 


GC  TO  100 

1  =  2 

GC  TO  5720 


ENTERING  THE  MONTH  OF  MARCH  -  MUST  DETACH  ONE 
C-130  FOR  ICE  PATROL  FROM  THE  NORTHERN  NGST  STA- 
TION  WITH  C-130S.   TAKE  THE  FIRST  C-130  IN  THE 
C-130  ACCOUNTING  ARRAY,  DETERMINE  ITS  CURRENT 
STATUS  AND  ACT  ACCORDINGLY  (THIS  IS  THE  C-130  TO 
BE  DETACHED  FOR  ICE  PATROL) 

IF(NPLANE(1,2> *LT.4)  GO  TO  5420 

IE(NPLANE( 1,2) .EQ.4)  GO  TO  5160 

IF(NPLANE(  1,2) .LE.6)  GC  TO  5320 
GC  TO  5420 


THE  C- 
WHICH 


130  BEING 
MISSION 


DETACHED  IS  ON  A.  MISSION;  FIND 


DO  5180  1=1, 100 
IF(NMISSN( I ,  16) 
CONTINUE 


EG.NPLANE( 1,7) )  GO  TO  52CC 


IF  MISSION  THE  C-130  BEING  DETACHED  IS  ON  HAS  MORE 
THAN  CNE  AIRCRAFT  ASSIGNED  JLST  CHANGE  TEE  MISSICN 
ACCOUNT ING  VECTOR  TO  SHOW  ONE  LESS  AIRCRAFT  AS- 
SIGNED -  OTHERWISE  CANCEL  TEE  MISSION  AND  ZERO  ITS 
ACCOUNTING  VECTOR 

I F(NMISSN(  I, 11 )  .GT  .1  )  GO  TO  5300 

DO  5240  J=I, 100 

IF(NMISSN(J+1, 1 )  .EG.O  )  GO  TO  526C 

DC  5220  M=l,16 

N  M I SSN ( J , M )  =  NM I S  SN ( J+  1 , M ) 

CCNTINUE 

CONTINUE 

DC  5280  M=  I,  16 

NMISSNC J,M)=0 

CCNTINUE 

GC  TO  5420 

NMSSN(  I,ll)=NMISSN(Itll»-l 

GO  TO  5420 


THE  C-130 
CASE 


BEING  DETACHEC  IS  CN  A  CASE;  FIND  WHICH 


DC  5340  1=1 ,50 
IF(NCASE(  I  ,16).EQ 

CCNTINUE 


NPLANE(1,6))  GC  TO  5360 


FIND  OUT  WHETHER  THE  C-130  WAS  FNROUTE  TC,  RETURN- 
ING FROM,  OR  ON  SCENE  AND  ADJUST  THE  CASE  ACCOUNT- 
ING VECTOR  ACCORDINGLY.   THEN  DETERMINE  TAKE  OFF 
TIME  FOR  NFXT  C-130  TO  GO  ON  CASE  DEPENCING  CN 
WHETHER  IT  IS  A  CCNTINUOUS  ON-SCENE  RELIEF  CASE  OR 
NOT  AND  TALLY  FLYING  TIME 

IF(NPLANE(  1,2  KEQ.5)  GO  TO  5380 


NCASE(  I  ,  17)=NCASE(  I  , 
NCASEl  If  11)=NCASE(  I, 
I F(NCASEi 1,2) .EQ.l  ) 
NCASE( I , 9)=NCTS+5 
GC  TO  5420 
NCASE( I ,9) =NCTS 


17)  -1 
1  i  )— 1 

GO  TO 


5400 


IF(N°LANE(  1,2) 
IF(NPLANE(  1,2) 


LE 

EG 


4) 

8) 


GO 
GO 


TO 
TO 


5440 
5440 


NFLYTI=NFLYTI+NCTS-NPLANE(1,10) 

LOAD  C-130' S  ACCOUNTING  VECTOR  TO 
A  MISSION,  TO  RETURN  THE  FIRST 
M  I S  S  1 1        ERSOITWTLI 


REFLECT  IT  IS  CN 
JULY,  SET  MAX 
/s  CPPfT  rM  TMP 

RESf'OF  THE  PROGRAM,  E  IT  IS  TO  RETURN  TO 


MO 


140 


5440 


C 

c 
c 
c 
c 
c 
c 
c 
c 


54  60 
548C 

5500 
552C 
5540 
5560 
558C 
5600 
5620 
564C 
566C 


C 

C 

c 
c 
c 
c 


5680 
57CC 


ITS    HCMF     STATION    WHEN     ICE    PATRCL    COMPLETEC    ANC     ITS 
TIME    OF    DEPARTURE    ON     ICE    PATRCL    AS    CURRENT    TIME 
STEP 

NPLANE(  L,2)=4 

NPLANE(  1,4} =43 44+ (8 76  0 -NY  EAR) 

NPLANE(  i,5)=7 

NPLANE(  It  7)=999999 

NPLANEl  1,8)=NPLANE(1,  1  ) 

NPLANE( 1, 10)=NCTS 

IF    THERE    WERE    NO    C-130S    ASSIGNED    TO    TFE    NORTHERN 
MOST    C-130    STATION    DETERMINE     STATION    C-130    CAME 
FROM    AND    COMPUTE    EXTRA    FLYING    HOURS     CORRECTED    FOR 
FLYING    AIRWAYS    VS     DIRECT    FOP     AN    AVERAGE    OF    10 
ROUND    TRIPS    TO     ICE     PATROL     BASE    PROM    HCNE    STATION 
DURING    THE    SEASON    AND    TALLY.       ALSO    TALLV    500    MIS- 
SION   HOURS    FLOWN    ON    ICE    PATRCL 

IF(NPN.GT.O)     GO    TO    5480 

IF(NPC.GT.O)    GO    TO    5460 

XHRS=20.0*(FL0AT(LAC( D-LAC (3) )/2SC.0)*l.l575 

XHRST=XHRST+XHRS 

GC    TO    5480 

XHRS=2  0.0*(FL0AT(LAC( 1  ) -L  AC  (  2  )  )  /  290  .  0  )  *  1  .  1  ^  75 

XHRST=XHRST+XHRS 

NLMFHR=NUMFHR+500 

1=3 

GO    TO    5  72  0 

1  =  4 

GC    TO    5720 

1=5 

GO    TO    5720 

1=6 

GC    TO    5  72  0 

1=7 

GC    TO    5720 

1  =  8 

GO    TO    5720 

1=9 

GC    TO    5720 

1=10 

GC    TO    5720 

1=11 

GC    TO    5720 

1=12 

GO    TO    5720 

BEGINNING    NEW    YEAR,     INCREASE    YEAR    COUNTER    BY    ONE 
TO     INDICATE    THE    NUMBER    OF    YEARS    COMPLETED    -     IF 
SUFFICIENT    TIME    STEPS    HAVE    BEEN    COMPLETED    GO    TO 
PUBLISH    FINAL     STATISTICS 

NYEAR=NYEAR+1 
1=1 

IF(NCTS.EQ.N)    GO    TO    5800 

SET  ALL  MONTHLY  VARIABLE  PARAMETERS  FCP  MONTH 
THAT  IS  JUST  BEGINNING 


572C  PCL(i)=T.vONTH(I  ,5) 

PCL(2)=PCL( 1)+TM0NTH( 1,6) 
PCL(3)=1 .0 
PCNN=TMCNTH( I ,4) 
NPSDIW=TMONTH( I, 10) 
PCSS=TMCNTH{ I ,3) 
PCGULF  =  TMONTH (I  ,9) 
PCSOU=PCSS+PCGULF 
FSCDPD  =  Tf'CNTH(I  ,3) 
TSCPYA=(365. 0/TMONTH( 1,11)) 
PYA= (365.  [ t  ITH(I,1I 

1(1 ,2) 


*(FLOAT(NSCPY)  )*TMCNTH(  1,1) 
;PY)  )*T*"-'  TH 
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c 
c 

c«* 

c** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

58 

C 
C 
C 
C 


MCNTH=I 

IF(NSTUP.EQ.O)  GO  TO  5  800 

N=l 

WRITE( 6,9C02)  M 

GC  TO  80 
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**  STATISTICS    SEGMENT  **** 
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THE  FUNCTION  GF  THE  STATISTICS  SEGMENT  IS  TO  GATH- 
ER VITAL  STATISTICS  (DOWN  TIKE,  KISSICN  AND  CASE 
OM-SCENF  HOURS  NOT  FLOWN,  EXTRA  FLIGHT  FOLPS, 
OVERNIGHT  STAYS,  ETC.)  FOR  INDIVIDUAL  MCNTHS  AND 
REPLICATION  YEARS  AND  TO  PUBLISH  THE  STATISTICS  AS 
INDICATED 


00  M=I-L 

IF(M.EQ.O)  M=12 


IF  MONTH  JUST  COMPLETED  WAS  JANUARY  WRITE  HEADING 
FOR  MONTHLY  STATISTICS  OF  NEW  REPLICATICN  YEAR 


C 
C 

c 
c 


lF(M.GT.L)  GO 
WPITE(6 ,9003) 


TO  5820 


DETERMINE  STATISTICS  FOR  THE  MONTH  JLST  CCMPLETED 
AND  PUBLISH  THEM 

20  NDOW=NDOWTI-NDOWS 

NDOWT(M)=NDOWT(M)+NDOW 
NMHL=NMHLST-NMHLS 
NfKTl  M  )=NMHLT(M)+NMHL 
NSHL=NOSHNC-NSHLS 
NSHLT(M )=NSHLT(M) +NSHL 
XCURS=XHRST-XOURSS 
XCLRST( M)=XOURST( M)+XCURS 
DO  5840  J=L,3 
NCNA(  J)=NROf\A(J)-NCNAS(J) 
NONAT( M, J) =NCNAT( M , J ) +NCNA( J) 
NCNFU  )=NRONF(  J)-NCNFS(  J) 
N C N FT  (  M  ,  J  )  =N  CNFT  (  M  ,  J  )  +N CN F  (  J  ) 
584C  CCNTINUE 

W  R I T  E { 6 , 90 04 )  M  ,  N  DOW , NM HL , N  SHL 
1(NCNF( J)  ,  J  =  l,3) 


XCURS, (NONA( J)  ,J  =  1  ,3) 


C 

c 
c 

c 

c 
c 

c 
c 


585C 


STORF  TOTAL  STATISTICS  GATHERED  TO  END 
JUST  COMPLETED 

NDOWS=NDOWTI 
NNHLS=NMHLST 
NSHLS=NCSHNC 
XCURSS=XHRST 
DC  5850  L=l,3 
NONAS (L)=NRONA(L) 
NCNFS(L )  =  NRONF(L  ) 
CCNTINUE 


CF  MONTH 


IF  NOT  STARTING  A 
NEW  MONTH 

IF{ I .NE.l )  GO  TO  5900 


NEW  YEAR  GC  TO  BEGIN  PUNS  FOR 


BEGINNING  A  NFW  YEAR  SO  DETERMINE  STATISTICS  FCR 
THE  YEAR  JUST  COMPLETED  AND  PUBLISH  THEM 

N  D  C  WY=  N  D  0  W  S-  N  DO  W  Y  S 

NMHLY=NMhLS-NMHLYS 

.  .   .  . 

XCURY=XOURSS-XOURYS 
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5860 


CC    5860    L=l,3 

NCNAY(  L  )  =NCNAS( L )-NCNAYS (L) 

NONFYU.  )=NONFS(  L  )-NCNFYS(L) 

CCNTINUE 


WRITF( 6,9005) 

WRITE(6,9006) 

V\  F  I T  E  (  6  ,9  007  ) 

l(i\ONAY(  J)  ,  J=l 


NYEAR 

NOQWY, NMHLYtNSHLY , XCURY, 
3)  , (NCNFY(J)  ,J=i,3) 


STORE    TOTAL    STATISTICS     GATHERED    TO    EMC    OF    YEAR 
JUST    COMPLETED    AND    DETERMINE    VARIANCES 


M-NYE 

WRITE 
NRONT 
NMHSS 
NSHSS 
XCSS= 
NRCNS 
NDOWY 
Nf-FLY 
NSHLY 
XCURY 
CC  58 
NCNAY 
NCNFY 
5880  CCNTI 
VKNH= 
VMSH= 
Vf'XO  = 
VMRON 
VARM= 
VARS  = 
VARX= 
VARR= 
LLC) 


AR  +  1 
(6,90 
Y=NOM 
=  NMHS 
=  NSHS 
XCSS  + 
S  =  NRO 
S  =  NDO 
S=NMH 
S  =  NSH 

s=xou 

80  L  = 
S(  L)  = 
S  (  L  )  = 

NUE 

FLOAT 

FLOAT 

XOURS 

=FLOA 

(VMMH 

(  VMSH 

(  VMXO 

(VMRO 


02) 
AY( 
S+( 
S+( 

(XO 
NSS 

ws 

[  c- 

LS 

RSS 

1,3 

NON 
NO.N 


M 
1)+N0N'AY(2)+N0NAY( 3) 
NMHLY**2 ) 
NSHLY**2) 
URY**2) 
+(NRCNTY**2) 


AS(L  ) 
FS(L) 


(NMHLS) /FLOAT(NYEAR) 
(NSHLS)/FLGAT( NYEAR) 
S/FLOAT (NYEAR) 

T( NROMA(  1  H-N'RCNA(2  )+NRCNA(3  ) ) /FLOAT (NYEAR ) 
*«2)*< (NKHSS/( FLOAT ( NYEAR )*(VMPH**2) ) )-1.0) 
**2  )*<  (NSHSS/  (FLO  AT  (NYEAR  )*{VMSF**2)  )  )-  1.0) 
**2)*(  (  XOSS/  (FLOAT  (NYEAR  )*<VMXC**2)  )  )-l  .0) 
N**2)*(  (NRONSS/  (  FLOAT  (  NYEAR)  *( VMR0N**21  )  )- 


IF    COMPLFTING    THE     TENTH    REPLICATION    YEAR    DETERMINE 
TOTAL     NUMBER    OF    REPLICATIONS     PEGUIREC    FCR    CON- 
FIDENCE   LEVEL    AND     UNCERTAINTY    LIMIT     SPECIFIED     ANC 
CHANGE    TERMINATION    TIME     STEP     INDICATOR     ACCORDINGLY 


5890 
590C 


IF  (NY 
NYCAL 
NYCAL 
NYCAL 
NYCAL 
NYIT= 
I  F  (  NY 
IF(NY 
IF(NY 
N=(NY 
IF(N. 
WRITE 
CENT  I 
I  F  (  NC 
GO    TO 


EAR 
M=  ( 
S=( 
X=( 
R=( 
NYC 
IT  . 
IT. 
IT. 
IT* 
LT. 
(6, 
NU  E 
TS. 
08 


.NE 
(VA 
(VA 
(  VA 
(VA 
A  L  M 
LT. 
LT. 
LT. 
876 
876 
901 


.10)     GO    TO    5890 

RM/(VMMH**2) )*( (C CNF /ERR OR)** 2  ))  +  1.0 
RS/(VMSh  2 ) )*( (CCNF/ERRCR)**2  )  )  +  1.0 
RX/( VMX0**2) )*( (CCNF/ERRCR)"-2  )  )  +  1.0 
RR/  (VMRCMV  '■?.)  )   =(  (  CON  F/ ERROR)  **2)  J  +  1.0 

NYCAL S)     NYIT=NYCALS 

NYCALX)     •\IYIT  =  NYCALX 

NYCALR)  NYIT=NYCALR 

0)+NSTUPK 

OO+NSTUPK)  N=87600+NSTUPK 

6)  NYCALM, N YCAL S,NYC A LX,  NYCALR 


E  Q  .  N  ) 
0 


GO    TC    5920 


5920 


SUFFICIENT    NUMBER    CF    TIME    STEPS    HAVE     EEEN    COMPLET- 
ED   SO    CALCULATE    THE    MEAN    AND    VARIANCE     STATISTICS 
FOR    THE    REPLICATION    MONTHS     ANC    YEARS    RUN    AND    PUB- 
LISH   THEM 

SNSYR=FLOAT(NCTS-NSTUPK)/ (365.0*24.0) 
IF(SNSYR/NYFAR.NE.l)     GC    TO    5980 
WRITE(6,9010)     NYEAR 
WPITE(6  ,9013) 
DC    5960    J=l,12 
ACCWT= Fl  DAT  INCOWT ( J) > /SNSYR 
ANHL=  FLOAT  (NMHLT  (  J  )  )/SNSYR 
ASHL=FL!  J ) ) /SI 

"URS=XGURST(J ) /SNSYR 
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c 
c 
c 
c 
c 


DC  5940 
ANCNA( L 
AN0NF( L 

594C  CONTINU 

U  R  I T  E  ( 6 

1 ( AN0NA( 

596C  CONTINU 

59  3  0  ACGWT=F 
ANHL=FL 
ASHL=FL 
AXCURS= 
DC  6000 
ANONAtL 
AKCNF( L 

60 OC  CONTINU 
RONT=AN 
WPITEC6 
WRITE (6 
WRITE(6 
1( ANON A ( 
WRITE(6 
SVARM=S 
SVARS=S 
SVARX=S 
SVAPR=S 
W  R I  T  E  (  6 
THRAV=S 
DCWAV=F 
FHPMAV= 
FHPCAV= 
FFMPYA= 
FHCPYA^ 
ACPY=Fl 
AVPY=FL 
AVFHNU= 
LFFCPYA 

W  P  I  T  E  (  6 
1D0WAV>A 
IF(NRUN 
NRUN=NR 
PEAD(  5, 

7023  FCRMAK 
GO    TO    7 

89 OC    f\CTS=MC 


L  =  l 
)  =  FL 
)  =  FL 

c 

^900 
L)  ,L 
E 

LOAT 
CAT( 
OAK 
XOUR 
L  =  l 
)  =  FL 
)  =  FL 


OAT(NONAT( J,L)  )  /SNSY 
OAKNONFT  (J,L)  1/SNSY 

3)     J.ADCl«T,AMHL,ASHL 
=1,3) , (AN0NF(L),L=1T 

(NDOWS) /SNSYR 

NMHLS) /SNSYR 

NSHLS)  /SNSYR 

SS/SNSYR 

,3 

OAT(NONAS(L) )/SNSYR 

OAKNONFS (L)  )/SNSYR 


P 
R 

,AXCURS, 
3) 


ONA( 1) 
,9011 ) 
,9012) 
,9  009) 
L) ,L=i 
,9015) 
CRKVA 
CRKVA 
QRKVA 
CRT  (VA 
,9033  ) 
NSYR-'F 
LCATIN 
FLOAT( 
FLOAT ( 
FLOAK 
FLOAT( 
CAT (NC 
CAT (NM 
(THKAV 


+  ANON 
SNSY 

ADOW 
,3)  ,  ( 

VARM 
RM) 

RS) 
RX) 
RR  ) 

SVAP 
LQAT( 
DOWT  I 
NUMFH 
NUSFH 
NU  M  F  h 
NUSFH 
)/SNS 
J/SNS 
/SNSY 


A(2)+AN0NA(3) 
R 

T,AMHL,ASHL,A 
ANONFtL ) , L=l, 
,VARS,VARX,VA 


XCURS, 
3 ) , RONT 
RR 


M,SVARS,SVARX ,SVARR 

MP  I S)*8 760.0 

J/THRAV 

R)/FLCAT(NM) 

R)/FLOAT(NC) 

R)/SNSYR 

R) /SNSYR 

YR 

Y^ 

RJ-ADOWT+AMFiL 


,9C14)  ACPY, FFCFYA.FHPCA 

VFHNU 

.EC.NRUNS )  GO  TO  8900 

UN+1 

7023)  N,NSTUP,NPN,NPC,NP 

5110) 

600 

TS-NSTUPK 


+ASHL-AXCUPS 
V,AMPY,FHMFY 


-FHMPYA- 
t, FHPMAV, 


PU3LISH  CASE  AND  MISSION  TO 
GENERATED  DURING  THE  TIME  S 
NOT     INCLUDING     START    UP,     AND 


T£LS    BY    TYPE 

TEPS    RUN    FCR 

TFEN    TERMIN 


900 


900 
900 


900 

900 
900 


900 
900 


WR 
MP 
C    FO 
1« 
2' 

4/1 

2  FC 

3  FO 
l1  E 
24X 

4  FC 
17X 

5  FO 

6  FC 
l'R 
i'R 

7  FC 
17X 

P     FT 


ITE(6 
ITE(6 
RMAT( 
CASE  S 
RATE 
SAR  C 
OX, 16 
RMAK 
RMAT  ( 
FH'  ,5 
,  'RON 
RMAT  ( 
,13,7 
RMAK 
RMAT  ( 
ONA  1 
ONF  2 
RMAK 
,13,7 
| 
.2,  3X 


1F8 

9  f  : " 

LF3.2,3X,F3.2 


,90  00 
,9034 
///6X 

AND 
DAY  S 
ASES' 
,'  RE 
•1'  ,4 
///8X 
X,'  RO 
F  2«, 
/9X,  I 
X,I3, 
///41 
//3X, 
•  ,4X, 
S4X, 
/8X,I 
X,I3, 
/9X,  I 
,  F  6 . 2 


)  NC 
)  I A 

,  •  D 
MISS 

AR  C 
,/10 
GULA 
6X,  ' 
,  '  M 
NA  1 
4X,  « 
2,7X 
7X,  I 
X,' 

•  DO 

•  RON 
•RON 
4,6X 
7X,I 
2,5X 
,3X, 
2.2, 
,3X, 


T  S  ,  N  S  S 
,  I  £  ,  I  C 
NG« 
IONS  Vi 
ASES'  , 
X,  16, « 
R  NCN- 
MCNTH 
ONTH'  , 
1 ,4X,« 
RCNF  3 
,  14, 6X 
3,7X,I 
SUMMAR 
WN« ,7X 
A  2'  ,4 
F  3«,  6 
,  15, 6X 
3,7X,I 
,F8.2, 
c8.2,3 


MSC,N 
,ID,I 
,16,  • 
ERE  G 
/10X, 
SPEC 
SAR  M 
LY  RE 
5X,  «D 
RONA 


ODSC ,NSPL,NRNSC 
E,IF 
TI  M 
EN  ER 
16,  ' 
IAL 
ISSI 
SULT 
O'aN' 


2', 4 


E     STEPS    THE 
A  TED:  '  ,/lCX, 
NCN-PEAK     F£ 
NCN-SAR    MISS 
ONS'  ) 

S  FCR  YEA?', 
, 7X,  »MHL •  ,6X 
X,  'RONA  3'  ,4 


S  THAT  WERE 
RECORD, 

ATE  THE  RUN 


FCLLCWINC  , 
16,'     PEAK', 
TE    DAY     ' , 
I C  N  S  '  , 

13  ) 

,'  CSHL  '  ,7X, 

X,  'RGNF     1', 


ULTS 
',  6X 

IN  A    3 
IN 


FCR    YEAR* ,1 
,  'CSHL«  ,  7X,  ' 


) 
I4,6X,I4,4X,F8.2,5X,I3,7X,I3, 

) 
RES 

•MHL 

,'  RO! 

,  'RONT'  ) 

I4,4X,F8  .2,5X, 13, 7X,  I3,7X, 13, 
4) 

3X,FS 
X,F8.; 


2) 

EFF' ,6X, 
,4X,'R0NF     l',4X, 


2,3 
,3X 


- 
cC.2,3X,r-3. 


X,F8.2,3X,F£ 
,  F8.2,3X,F£. 


.2,3X, 
2) 

3X, 
2,3XtF£.2f2X,FE.2J 
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90  1C 
90LL 
9012 


90L3 


9014 


9015 
9016 


1 
2 

1 

1 
2 
3 

4 

i 

? 

3 

i 

1 
2 

1 
2 

4 

1 
2 

3 

i 

? 
3 

4 
5 
6 

2 
3 

4 
5 
6 

1 
2 

3 

1 
2 

4 
90  2  7 


90  17 
9018 


9019 


9020 


9021 


9022 


9023 


FORMAT! 

12,  •  RE 
FORMAT  ( 
F6.2, « 
FORMAT  ( 
•RCNA  1 
•RONF  2 
FCPMAT( 
• EFH'  ,7 
5X, 'ROM 
FCPMAT( 
8  NUM5E 

•  REQUE 
'='  ,F10 
■F  MISS 
•FOURS 

•  MEAN 
'EGUEST 
■ AILABL 
'  DOWN' 
F10.2,/ 
FCFMATC 
FORMAT ( 

•  MHL 

•  PCNT 
FORMAT { 
•SET  FO 
FORMAT( 

•  CASE 
3F5.2,/ 
/10X,  • 

•  FELO 
FORMATS 
4F5.2,/ 
3F5.2,/ 


THREE 
FORMAT ( 
•  PER  Y 


•  =  •  ,F  5 
FORMAT ( 
1  (1-3) 

•ORITIE 
'  THAT 

•  THAT 
FORMAT ( 
1  DIST. 
•STATIO 
/10X, « 
FORMAT ( 

•  UP  PG 
«  =»,F5 
F5.2,/L 


///,23 

PL  IC^.T 
///23X 

REPLIC 
//8X, ' 
1 ,5X,' 
',5X,  » 
///7X, 
X,' RON 
F  2»,5 
//32X, 
R  OF  C 
STED«, 
.2,/36 
IONS' , 
REOUES 
NUMBER 
ED  PER 
E' ,4X, 
,/32X, 
36X,  ' 
/6X,' 
/20X, « 
=  ' »  1 3 , 
=«  ,13) 
•l',5X 
R  THE 
LOX,'N 
PRIORI 
10X,  ' 
MEAN  D 
SU3STI 
10X,»  P 
10X,  • 
10X,' 

CASE 
/8X,  ' 
EAR  =« 
.2) 
10X, 'P 

=  «  ,3F 
S  (  1,2 
ARE  DE 
DURATI 
10X, '0 

(1-3) 
N  NEAR 
PROS. 
10X,'  P 
I N  T  S :  ■ 
.  2 ,  / 1  5 


X,'  M 

ION  Y 
,  •  M  E 
AT  I  ON 
DOWN 
RON  A 
RONF 


5X 


9024 


9025 


9026 


EW  YORK  =« 
NGTON 
LK  =•  , 
LOX, «P 
(1-4) 
UR  PER 
10X,  • 
D  DURA 


•  WAS HI 

•  NORFO 
FORMAT( 

•  DIST 

•  12  HG 
6F5.2,/ 
'  PERIO 
15F5.2) 
FCPMAT  ( 

•  PROBA 

•  PROBA 
F5.2,/I 
FOR '-'ATI 
.  (2-4- 
'  DOWN 
1  PROB. 
5F5.2) 

1     HH-3F 


MON 
1'  . 
•RO 

SCE 

/32X, 

X,  '     R 

1 5  X  ,  » 

TED    = 

OF    F 

M  I  S  S 

■  =  '  ,F 

1     TOT 

NOT    U 

VAR'  , 

I  TER 

/30X, 

,  •  THE 
ATTAC 
IBER 
TY  PR 
MEAN 
ISTAN 
TUTIO 
RIORI 
PRIOR 
PROB 
=  «  .F5 
M I S  S  I 
,15,/ 

RI3RI 
5.2,/ 
,S)  = 
PLOY' i 
ON  OF 
EPLOY 
=  ',3 
EST  D 
OF  HE 
ROB. 
,/15X 
X,  •  N 
CADEM 
.2 
F5 


EAN 
EARS 
AN  S 
YEA 
*,7X 
2»,5 
3«,5 
TH'  , 
5X,« 
NF 
BE 

f\E 

i 


R 


,F 
=  i 

F5 
RI 


2) 

1 

,4 


H 
ME 
EQUE 
=  ',F 

'iFl 
LIGH 
ION1 
10.4 
ALP 
SED  ' 
6X,2 
ATIO 
'     OS 

FOL 
HED 

OF 
03AB 
DIST 
CE  N 
N  =  ' 
TY  C 
ITY 
ONLY 
.2) 
GN  D 
10X, 

TY  P 
10X, 
•,3F 
ENT 

A  P 
ME  NT 
F5.2 
EP. 
LO  S 
DIST 
,'  B 
ORTH 
Y  =• 
,5X, 
.2,3 


SUMMA 

s  ) 

UMMAR 

RS'  ) 

.  iMHL 

X,  «R0 

X,'RO 

5X,  •O 

RCNA 

'  ) 

OF  CA 

OURS' 

AN  NU 

STED 

1C.2, 

0.2,/ 

T  HOU 

,/32X 

,/36X 

CTENT 

) 

F12  .2 

N  CAL 

HL  =' 


RY  DAT/5  FOR  MCMFS  USING 
Y  DATA  FOR  YEAR  LSING' , 


•CSHL' , 8X, »EFH« ,7X, 


,   uonf  ,  o  A   , 

'  ,5X, 'RONF 


1S5X, 


'  ,  7X 

NA  3 

NT'  ) 

OWN'  ,9X,  »MHL  ' ,7X,  'OSHL '  ,8X, 

2'  ,5X,  'RCNA  3'  ,5X,  'RONF  1', 


SES' 

,9X, 

M3ER 

PER 

/32X 

36X, 

RS«  , 

,'  P 

,  '  H 

IAL 


,  18X,  '  =  • , F1C.2,/32X, 

' =•  ,F10.2,/3  6X, 

OF  ON  SCENE  HCURS'  ,4X, 
CASE' ,/32X,  '  NUMBER  0', 
,  '  NUMBER  CF  FLIGHT  »  , 
'  FOR  MI SSICNS',/32X, 
6X,'=',F10.2,/36X, '  R«, 
POPCRTION  CF  TCTAL  AV« , 
OURS  THAT  C-13CS  WERE', 
FLIGFT  HOURS'  ,5X,' ='  , 


.2,62X,F11  .2  ) 

TICN  RESULTS'  ,/30X, 


,F11 

CULA' 

,I3,/30X,«    EFH       =»,I3,/30X, 


LOWING    PARAMETERS    HAVE    BEEN    • 
OX,  '     CASE    CATA'  ) 

YEAR    ='  ,  I4,/10X, 
TRIBUTION     (1-3)     =« , 

COAST  =• ,F6  .2, 
6.2,/10X,'  FPCE.  CF' 


CASES  PER 
ILITY  DIS 
ANCE  FROM 
CRTH  =' ,  F 
,F5.2) 


NE  C-130  REG. 
TWO  C-130 
ONE  C-130  REQ.  GN  A 


DIST 

o 


(1-4) 
(  1  -3 )  = '  , 

PRIORITY' , 


TA' ,/10X 
PROPGRT 


, !  NUMBER  CF  MISSIONS 
ION  THAT  APE  SPECIAL' 


ROB. 
•  HOL 
5.2,/ 
SAR  C 
RI  3 
SAR 
,/10X 
SAR  M 
UB  ON 
.  FOR 
OSTON 
ERM  = 
,F5.2 
•N't' 
X,  'CO 


MI  SSI  ON 


DIST 
D  PR 
10X, 
ASES 
MISS 
MISS 
,  *  P 
ISSI 
NON 
NON 

«,F5 
,6X  , 

CRLE 
AST 

DAYS 
i 


.  FO 

OBAE 

'  FR 

=  ', 

ICN 

ION 

R  C  B  . 

CN  ( 

-DEP 

-CEP 

F5.2 

.2,5 

•MA 

ANS 

=  «,F 


R  REG.  MISSIONS' 
IL IT IES  BY  PRI ' , 
OP.  OF  SPECIALS' 
F5.2,/1CX,'  PROB 
>  1  DAY  =«,F5.2) 
REQ.  C-120  PROB. 

DIST.  FCR  ', 
N,C,S)  =',3F5. 
MISS  ICN  -«,F5 
MISSION  PICK' 
T7X,  «  CENTRAL'  , 
X,'SQUTFERN  =« 
MI  ---  «  ,  F  5  .  2  ,  /  1  5 
=  '  ,F5.2,/15X, 
5.2,/lSX, 


2, 
.2) 


IOD  DURATION  PROB. 
PRI .  3  MISSION  >  1 
TION  PROB.  DIST.  ( 


(PARTIAL)  PROB. 

RI.  2  MISSION', 
CIST.  ( 1-6)  =  • , 
DAY  -  3  DAY ' , 

1-15)  =  :  S/15X, 


ENANCE  DISCRE 

AFTER  LANDIN 

T  FLIGHT  DUE 

PROBABILITY  DOWN  ON 

DIST.     CF     DOWN 

, 5F5.2,/10X, ' 

(4-8-24-36) 


BILITY  DOWN 
3ILITY  ABOP 
OX, 

1CX, 'PROS. 
8-24-72)  =' 
HRS  (ABORT) 
DIST.  GF  D 


G  =• ,F5.2, /1CX, 
MECH.  (HOURLY)  =' 
START  ='  , F5  .2) 
HRS  (NORMAL  )'  , 
PROB.  DIST.  CF" , 
=  '  ,4F5.2,/1CX, 
OWN  HRS  (START)  (2-4-8-24-72) 


//8X,«     HELT 
S       HH-52S 


CCPTER    S7  N    CATA '     //  10X,  ■    CI 30 

HH-3F  h'ri-  HH-52'"  ,  /1CX, 
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902 
902 


903 
903 


90 


903 
903 


2«  AREA 

8  FORMAT 

9  FORMAT 
2  •  MCN 
3*  GULF 

0  FORMAT 

1  FORMAT 
L//8X, ■ 
2»  MAX 

2  FORMAT 
1///10X 
2//10X, 

3  FORMAT 


ASSIGN  ASSIGN  NA',6X 
(  10X,I3  ,4X,I2,6X,I2  ,6X,  12 
(///8X,«  MONTHLY  VARIABLE 

PSC   PM   PPSD   PNM   PFD 

PDIW   DIM") 
(/10X,  12,  LX,  10F5.2,F5.0) 
{///3X,1  START  UP  PERIOD  = 

CONFIDENCE  COEFFICIENT  =« 


,  »NA'»6X, 
,6X,I2,6X, 


•2A«) 

12  ) 
INPUT  DATA'  ,//9X, 
PTFC  PSED  PSCL', 


OF  ERROR  =  »,F5 


M4,'  DAYS 
,  F  5  .  2  ,  /  /  8  X  , 


PUK 
-  i 


LEVEL 
(•1' 

T  •  NORTHERN  =•  ,1 2, //I 
•  SOUTHERN  =',I2) 

(  /6Xt»  STD'  ,6X,2F12.2,F11.2,£2X,F1].  .2 
4  FORMAT(  ///5X,  ■  FINAL  VALUE  01=  RANDOM  NUMBER 


2) 

C-130S  FOR 
0X,«  CENTRAL 


i  13, 
12, 


I 


1//10X, 
21 16,// 

3'  IF  = 
STOP 
END 


IA  = 


1CX 


I  L6,//10X, '  IB  = 


116, //10X 


SEEDS:' 
'  IC  = 


«,  I  16) 


ID  =  «  ,1  16,//10X,  •  IE  =  »,I16,//10X, 
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c 
c 
c 

1 

c 
c 
c 
c 
c 
c 
c 
c 


THE  KEY  CALLING  PARAMETERS  FOR  SUBROUTINE  MICA  ARE 
THE  NUMBER  OF  SAR  CASES  TO  DEVELOP  (NSCTC),  THE 
TIME  OF  A  SPECIAL  MISSION  (NSPNST),  AND/CR  NUMBER 
OF  REGULAR  MISSIONS  TO  DEVELOP  (NNSCTC). 


C****  SUBROUTINE  MICA  **** 

q  y,<  *  *  *  *  *  y.-  & 

c 
c 
c 
c 
c 

C 

C 

C  THE  FUNCTION  OF  SUBROUTINE  MICA  IS  TO  DETERMINE 

C  EACH  FACET  OF  ALL  CASES  AND  MISSIONS  AND  TO  LOAD 

C  THE  RESPECTIVE  MISSION  OR  CASE  VECTORS.   FOR  A 

C  CASE,  THE  FOLLOWING  INFORMATION  IS  DETERMINED: 

C  PRIORITY,  CONTINUOUS  ON-SCENE  RELIEF  CR  NOT,  LAT- 

C  ITUDE  AND  LONGITUDE  OF  CASE  SCENE  IN  NAUTICAL 

C  MILES  FROM  SIMULATED  COAST  LINE  AND  BASE  LINE, 

C  WHETHER  A  CASE  IS  IN  POTENTIAL  RANGE  ANC  IS  SUIT- 

C  ABLE  FOR  HELICOPTER  SUBSTITUTION  OF  C-I30S  IF 

C  NECESSARY,  THE  CLOSEST  C-130  STATION  TC  THE  CASE, 

C  THE  DISTANCES  OF  ALL  C-130  STATIONS  FROM  THE  CASE, 

C  THE  NUMBER  OF  C-L30S  REQUIRED,  TOTAL  CN-SCENE 

C  FLIGHT  HOURS  REQUIRED,  TIME  OF  FIRST  C-130  TAKE 

C  OFF  AND  TIME  CASE  IS  TO  CLOSE.   FOR  A  MISSION,  THE 

C  FOLLOWING  INFORMATION  IS  DETERMINED:   PRIORITY, 

C  WHETHER  IT  CAN  BE  HELD  PAST  SCHEDULEC  TAKE  OFF 

C  TIME  WITHOUT  BEING  CANCELLED  AND,  IF  SC,  FOR  HOW 

C  MANY  HOURS,  LATITUDE  AND  LONCITUDE  OF  MISSION 

C  PICK  UP  POINT  IN  NAUTICAL  MILES  FROM  SIMULATED 

C  COAST  LINE  AND  BASE  LINE,  WHETHER  MISSICN  IS  OF 

C  TYPE  WHICH  IS  SUITABLE  FOR  A  HELICOPTER  SUBSTITU- 

C  TIGN  OF  A  C-130  IF  NECESSARY,  NEAREST  C-130  STA- 

C  TION  TO  THE  MISSION  PICK  UP  POINT  AND  THE  DISTANCE 

C  OF  ALL  C-130  STATIONS  FROM  TEE  MISSICN  PICK  UP 

C  POINT,  NUMBER  OF  C- 130S  REQUIRED,  TOTAL  MISSICN 

C  FLIGHT  HOURS,  TIME  MISSION  CLOSES,  ANC  TOTAL  TIME 

C  STEPS  THAT  MISSION  IS  UNDERWAY.   THE  DEPARTURE 

C  TIME  OF  THE  AIRCRAFT  FOR  MISSIONS  IS  DETERMINED  IN 

C  THE  MAIN  PROGRAM. 

C 

c 


DIM 
CCM 
PCG 
PSC 
QN'D 
CCM 
NCA 
CCM 
EQU 
EQU 


I  VALENCE 

I  VALENCE 


CASES  MUST  BE  DEVELOPED 


CASE  SECTION 


5000  IF(MSCTC.GT.O)  GO  TO  5250 


50C4 


THERE  ARE  NO  CASES  TO  BE  DEVELOPED.   ZERO  C-130S 
REQUIRED  INDICATOR  AND  SEE  IF  THERE  ARE  ANY  MISS- 
IONS TC  BE  DETERMINED.   IF  NCT,  RETURN  -  OTHERWISE 
IF  THERE  IS  A  SPECIAL  MISSICN  TO  BE  DEVELOPED  GC 
TO  SPECIAL  MISSION  SECTION,  IF  REGULAR  MISSION  TO 
BE  DEVELOPED  CONTINUE 

JCENT7=0 

i  SPNST.GT.OJ  GO  TO  5040 
IF(NNSCTD.GT.O)  GO  TO  5008 
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c 
c 
c 
c 
c 


5008 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


50  12 

501fc 


502C 


c 
c 
c 
c 
c 


5024 


5028 


C 
C 

c 
c 


50  3  2 


C 

c 
c 
c 
c 


5036 


C 

c 
c 
c 

c 

c 


5040 


RETURN 

DEVELOPING    A    REGULAR    MISSION.       INCREASE    TCTAI 
MISSICN    COUNTER    BY    ONE    AND    DETERMINE    PRIORITY    OF 
THE     MISSION    AND    STORE 

IC=ID*K 

RP  =  0. 5+FL0AT( ID)*Z 

NN=NM+i 

DC    50L2     J=l,3 

IF(RP.LE.PRKJ)  )     GO    TO    50L6 

CONTINUE 
JDENT1=J 

DETERMINE    NUMBER    OF    TIME    STEPS    THAT    THE     MISSION 
CAN    BE    HELD    PAST    THE    SCHEDULED    TAKE    CFF    TIME    WITH- 
OUT    BEING    CANCELLED,    CONSIDERING    MISSICN    PRICRITY 

ID=ID*K 

RH=0.5+FL0AT(ID) *Z 
IFUDENTL.GT.2)  GO  TO  5032 
IF(JDENTL.GT.l)  GO  TO  5024 


HAVE  A  PRIORITY  ONE  MISSION. 
BE  HELD  OR  NOT  AND  IF  SO,  FOR 
DEPENDING  ON  TIME  OF  DAY 


DETERMINE  IF  IT  CAN 
LOW  MANY  TIME  STEPS 


DETERMINE  IF  IT  CAN 
HOW  MANY  TIME  STEPS 


IT  CAN  eE  hELD  FCR 
STORE  THIS  FACT 


IF(RH.GT.PHOLDl)     GO    TO    5036 

IF(NDAYTI.EC12)     GO    TO    5020 

JCENT2=4 

GO  TO  5C68 

JCENT2=20 

GC  TO  5068 

HAVE  A  PRIORITY  TWO  MISSION. 
BE  HELD  OR  NOT  ANC  IF  SO,  FOR 
DEPENDING  ON  TIME  OF  DAY 

IF(RH.GT.PHGLD2)  GO  TO  5036 

IF(NDAYT1.EQ.12)  GO  TO  5028 

J  CENT  2= 28 

GC  TO  5068 

J0ENT2=24 

GC  TO  5068 

HAVE  A  PRIORITY  THREE  MISSION 
48  TIME  STEPS  IF  NECESSARY  SO 

JDENT2=48 
GC  TO  5068 

EITHER  A  PRIORITY  ONE  OR  TWO 
HELD  BEYOND  THE  REGULAR  TAKE 
THIS  INFORMATION 

JDENT2=C 
GC  TO  5068 

HAVE  A  SPECIAL  MISSION.   IT  IS  A  PRIORITY 
MISSICN.   STORE  THIS  FACT,  INCREASE  TOTAL 
COUNTER  BY  ONE  AND  DETERMINE  WHETHER  THE 
MISSION  IS  A  DEPLOYMENT  SAR  CASE  OR  NCT 

JDENTi=  1 

NN=NM+l 

IC=ID*K 

RH=0. 5+FL0AT( ID)*Z 

IC=ID*K 

RS=0.5+FL0AT( ID) *2 

lF(RS.GT.PSC)  GO  TO 


MISSION  CAN 
OFF  TIME  SC 


NOT  EE 
STORE 


ONE 

MISSION 
SPECIAL 


SPECIAL  MISSICN 


5052 

IS  DEPLOYMENT  SAR  CASE 


I  IITIAL- 
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c 

c 
c 

c 


c 

c. 
c 
c 
c 
c 

I 

c 

c 
c 

c 


c, 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


IZE  INDICATOR  SHOWING  THIS,  DETERMINE  NUMBER  CF 
AIRCRAFT  REQUIRED  AND  SPECIFY  A  POSSIBLE  HOLD  TIMF 
OF  12  HOURS 


*Z 

)  GC  TO  5048 


NCSC=1 
ID=ID*K 

RS=0.5+FL0AT( ID) 

DC  5044  J=l,3 

IF(RS.LE.PPSC(J) 
5044  CCNTINUE 
5048  JDENT7=J 

JDENT2=  12 

GC  TO  5068 

SPECIAL  MISSION  IS  NOT  A  DEPLOYMENT  SAR 
DETERMINE  IF  THE  SPECIAL  MISSION  CAN  BE 
SO,  CONTINUE,  IF  NCT  GO  TO  SEE  IF  IT  IS 
EVACUATION  MI SSION 


CAST-. 
HELD.   IF 
A  MEDICAL 


5052  IF(RH.GT.PHOLD)  GO  TO  5060 

SPECIAL  MISSION  CAN  BE  HELD 
HOURS.   DETERMINE  WHICH  AND 


FCR  EITHER 
STCRE 


ONE  OR  TWO 


IC=ID*K 
RH=0.5+FLOAT( ID)*Z 
IFCRH.GT.0.5)  GO  TO  5056 
JCENT2=1 
GO  TO  5C64 
5056  JDENT2^2 

GC  TO  5064 

THE  SPECIAL  MISSION  IS  NOT  A  EMPLOYMENT  SAR  CASE 
AND  CAN  NOT  BE  HELD.   DETERMINE  IF  IT  IS  A  MED- 
ICAL EVACUATION  MISSION  -  IF  SC,  GO  TC  CETERMINE 
LOCATION  OF  MISSION.   IF  NOT,  CONTINUE 

506C  JDENT2=0 
5064  IC=ID*K 

R,v  =  0.5+FL0AT(ID)  *Z 

IF(RM.LE.PMEDIC)  GO  TO  5090 
5068  IC=ID*K 

RL=0.5+FLOAT( ID) *Z 

IF  NOT  DEVELOPING  A  SPECIAL,  SAR  CASE  CEPLOYMENT, 
MISSION  GO  TO  DETERMINE  MISSICN  PICK  UF  POINT  - 
OTHERWISE  CONTINUE 

IF( JDENT7.EQ.0)  GO  TO  5072 

DETERMINE  WHICH  C-130  STATION  IS  THE  CLOSEST  TO 
THE  DEPLOYMENT  SAR  CASE  AND  STORE  THAT  INFORMATICN 

IF(RL  .GT.PMSCU)  )  J  CENT  3=  L  AC  (  3  ) 
IF(RL.GT.PMSCd)  )  JDENT3 =L AC < 2 ) 
IF( JDENT3.EQ.0)  JDENT3=L AC (  1 ) 
GC  TO  5082 

HAVE  A  REGULAR  MISSION  OR  A  SPECIAL  MISSICN  THAT 
IS  NEITHER  A  MECICAL  EVACUATION  NOR  A  CEPLOYMENT 
SAR  CASE.   DETERMINE  MISSION  PICK  UP  LCCATION 

5072  DC  5076  J=l,ll 

IFUU.LE.PPUP (J) )  GC  TO  5080 
5076  CONTINUE 
5CS0  IF(J.EQ.O)  GO  TO  5084 

IF(J.EQ.IO)  GO  TO  5C86 

IF( J  .EQ  .  L  L  )  GO  TO  5090 

JCENT3=LCC(J) 
5082  JDENT4=C 

cc  c  g  3 

5084  JCENT3--:595 
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c 
c 
c 
c 

c 
c 


MEDICAL  EVACUATION  CP 
POINT  IS  POSSIBLY  AT 
CETERMINE  MISSION 


C 
C 
C 
C 
C 


J DENT 4  =  155 
GC  TO  5098 
50C6  JDENT3=625 
JDENT4=-505 
GC  TO  5098 

EITHER  DEVELOPING  A  SPECIAL 
OTHER  MISSION  WHOSE  PICK  UP 
SOME  NON-STANDARD  LOCATION. 
PICK  UP  POINT 

5090  ID=ID*K 

RG=0.  5+FL0AT(  ID)*Z 
IC=ID*K 

R>=0.5+FL0AT( ID)«Z 
IF(RG.LE. 0.30)  GO  TO  5094 
J  DENT 3  =  48  0.0+ CRX* 1640.0  J 
JDENT4=G 
GO  TO  5C98 
5094  JDENT3=625 

JDENT4=RX*(-505.  0) 

FOR  WHATEVER  TYPE  MISSION  BEING  DEVELOPED, 
MINE  THE  C-130  STATION  CLOSEST  TO  THE  PICK 
POINT 


DETER- 
UP 


C 
C 
C 

c 
c 


5098  CCNTI 

510  6  DO  51 

LF(L) 

1**2) ) 

5  110  CCNTI 

IF(LF 

IFCLF 

J  CENT 

GC  TO 

5114  JDENT 

GC  TO 

5118  JDENT 

5122  IC=ID 

RT=0. 

IF(JD 


NUE 

10  L=l,3 

=SCRT  ({  FLOAT  (  J  CENT4  )  ^  J-2  )  +  (  FLOAT  (LAC  (I  )  -J  DENT  3) 

NUE 

(1 )  .LE.LF(2 ) )  GO  TO  5114 

(2)  ,LE.LF(3)  )  GO  TO  5118 
6=3 

5122 
6=  1 

5122 
6  =  2 
*K 

5+FL0AT( ID) *Z 
ENT7.EQ.0)  GO  TO  5142 


C 
C 

c 
c 
c 
c 


5126 
512C 


5134 
5138 

5142 


5146 
515C 


DEVELOPING  A  SPECIAL  DEPLOYMENT  SAR  CASE.  DETER- 
MINE NUMBER  OF  TOTAL  HOURS  MISSION  WILL  BE  UNDER- 
WAY AND  NUMBER  OF  FLIGHT  HOURS  REQUIRED  PER  C-130 

DO  5126  L  =  l,4 

IF(RT.LT.QNDKL)  )  GO  TO  5130 

CONTINUE 

NDG  =  L 

IF(NDAYTI.LE. 12)  GO  TO  5134 

J  DEN  15  = (24-NDAYTI )+L-24 

GO  TO  5138 

JDEN15=  (  (L-l)^24)+24-NDAYT  I 

JDENT8=L-10 

GO  TO  5  186 

IF(JDENTl.GT.l)  GO  TO  5150 

DEVELOPING  A  PRIORITY  ONE  MISSION  OF  SCME  KIND 
OTHER  THAN  A  SPECIAL  DEPLOYMENT  SAR  CASE.   DETER- 
MINE THE  NUMBER  CF  TOTAL  HOURS  THE  MISSION  WILL 
BE  UNDERWAY  AND  NUMBER  OF  FLIGHT  HOURS  REQUIRED 

JDEN15=RT*16.0 

IF( JDEN15.LT .1)     JDEM15=l 

IF(JDEN15.GT.8)     GO    TO    5146 

JDENT8=FLOAT(JDEN15)*0.9 

IFUDENT8.LT. 1)     JDENT8=1 

GC    TO    5186 

J  DENT 8= FLO AT ( JDEN15)*0.70 

I 
IF( JDENT1.GT.2)     GO    TO    5162 
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c 
c 
c 
c 
c 


5154 
5158 


5162 


C 
C 
C 
C 
C 

C 

c 

c 
c 
c 
c 


c 
c 
c 

c 
c 
c 

c 


5166 

5170 
5174 


C 

c 
c 
c 
c 


5178 
5182 


5186 


C 

c 
c 
c 
c 
c 
c 


5190 


c: 
c 
c 


5194 


DEVELOPING  A  PRIORITY  TWO  MISSION.   DETERMINE  NUM- 
BER OF  TOTAL  HOURS  MISSION  WILL  BE  UNCEPWAY  ANG 
NUMBER  OF  FLIGHT  HOURS  REQUIRED 

DO  5154  L  =  l,6 

IF(RT.LE.QND2(L) )  GO  TO  5158 

CONTINUE 

JDEN15=L*12 

JDENT8=(FL0AT(JDEN15)/12.0)*8.0 

IF( JDENT8.LT. 8)  JDENT8=4 

GO  TO  5186 

DEVELOPING  A  PRICRITY  TFREE  MISSION 

ID=ID*K 

RC=0.5+FLOAT( ID) *Z 

DETERMINE  IF  THE  PRIORITY  THREE  MISSION  WILL  BE 
UNDERWAY  MORE  THAN  CNE  DAY  CR  NOT.   IF  NOT,  CON- 
TINUE 

IF(RD.LE.PTAD)  GO  TC  5166 

PRIORITY  THREE  MISSION  WILL  BE  UNDERWAY  ONE  DAY 
LESS.   DETERMINE  NUMBER  OF  TCTAL  HOURS  MISSION 
WILL  BE  UNDERWAY  AND  NUMBER  CF  FLIGHT  HCURS  RE- 
QUIRED 


CR 


JDEN15=RT*10.0 
IFUDEN15.LT.2) 
JDENT8  =  JDEM5 
GO    TO    5186 


JDENI5=2 


PRICRITY    THREE    MISSION    WILL     EE    UNDERWAY    MCRE    THAN 
ONE    DAY.       DETERMINE    NUMBER    OF    THREE     CAY     PERIODS     IT 
WILL    BE    UNDERWAY,     TOTAL    HOURS    UNDERWAY,    AND    FLIGHT 
HOURS    WHICH    ARE    DEPENDENT    ON    TCTAL    LENGTH    OF 
MISSION 

DO    5170    L=l,15 

IF(RT  .LE.QND3(L ) )     GO    TO    5174 

CCNTINUE 

JDEN15=L*72 

IFU.LT.3)    GO    TO    5178 

IF(L.LT .10)    GO    TO    5182 

JDENT8=L*6 

GO    TO    5186 

JDENT8=L*15 

GC    TO    5186     • 

JDENT8=L*9 

IF  DEVELOPING  ANY  MISSION  OTHER  THAN  A  SPECIAL  SAR 
DEPLOYMENT  CASE  ONLY  ONE  C-13C  IS  REQUIRED.  STORE 
THI S    FACT 


IF(JDENT7 
JDENT7=1 


GT.O)  GO  TO  5190 


IF  DEVELOPING  A  REGULAR  MISSION,  TIME  CF  SCHEDULED 
DEPARTURE  IS  CURRENT  TIME  STEP.   IF  DEVELOPING  A 
SPECIAL  MISSION,  THE  DEPARTURE  TIME  WAS  DETERMINED 
IN  THE  MAIN  PROGRAM.   STORE  THE  APPROPRIATE  DE- 
PARTURE TIME 

IF(NSPNST.GT.O)     GO    TO    5194 

JDENT9=NCTS 

GO    TO    5  198 

J0ENT9=NSPNST 


D  r"  T  r  -    ' 

SCHECULI  D 


THE 

TO 


T  T 
CLOSE 


STEP    IN    WHICH    THE     MlSSICr      T 
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c 
c 

c 
c 
c 


5L98    JDENiO=JDENT9+JDENL5 


C 

c 

c 
c 
c 
c 


5199 
5200 


5202 

52C8 


C 
C 

c 
c 
c 
c 
c 


5209 


52LC 


C 

c 
c 
c 
c 


25C 


C 

C 

c 

c 


5255 

526C 


DETERMINE  WHETHER  THE  MISSICN  BEING 
HAVE  A  HELICOPTER  SUBSTITUTED  FOR  A 
NECESSARY 


CEVELCPEC 
C-L30,  IF 


CAN 


IF(JDENL5.GT.48)  GO  TO  5L99 

IF(NDSC  .EQ.l )  GO  TC  5  199 

ID=ID*K 

RS=0.5+FL0AT( ID)*Z 

IF(RS.GT.PSUBM)  GO  TO  5  199 

JDENT5=1 

GC  TO  5200 

JDENT5=0 

NDSC=0 

CCNTINUE 

LOCATE  THE  FIRST  EMPTY  MISSICN  VECTOR  IN  THE  MIS- 
SION ACCOUNTING  VECTOR  ARRAY  NMISSN  AND  LCAD  THE 
MISSICN  INFORMATION  FOR  THE  MISSION  JUST  DEVELOP- 
ED INTO  THIS  VECTOR 


DC 
IF 

CC 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
N  M 
NM 
NN 
NM 
NM 
NM 
NM 
NM 
NU 


52 
( NM 
NT  I 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
ISS 
MFH 


02 
ISS 


NU 
N( 
N( 
N( 
N( 
N( 
N( 
N( 
N( 
N( 
N( 
N( 
NC 
Hi 
N( 
N( 
N( 


1=1,100 
(I  J.EQ.O) 


GO  TO  5208 


R  =  N 


,1)  = 

,2)  = 
,3)  = 
,4)  = 
,51  = 
,6}  = 
t7)  = 
,8)  = 
,9)  = 
,10) 
til) 
7  12} 
,13) 
,14) 
,15) 
,16) 
UMFH 


JDENT1 

JDENT2 

JDENT3 

JDENT4 

JDENT5 

JDENT6 

JDENT7 

J  DENT 8 

JDENT9 

=JDEN10 

=  0 

-LF(1) 

-LF( 2) 

=LF(3) 

=JDEN15 

=  NM 

R+( JDENT8*JDENT7) 


IF  SPECIAL  MISSION  JUST  DEVELOPED,  ZERC  SPECIAL 
MISSICN  OCCURRENCE  TIME  INDICATOR  AND  RETURN  - 
OTHERWISE,  DECREASE  THE  INDICATOR  OF  REGULAR  MIS- 
SIONS TO  BE  DEVELOPED  AND  SEE  IF  THERE  ARE  ANY 
MORE  REQUIRED 


IFCNSPNST.GT  .0 ) 

NNSCTD=NNSCTD-1 
GO  TO  5  004 
NSPNST=0 
RETURN 


GO    TO    5210 


HAVE  A  CASE  TO 
COUNTER  BY  ONE 
CASE    AND    STORE 

IC=IC*K 

RX=0.5+FL0AT( IC)*Z 

NC=NC+1 

DC    5255    1=1,3 

If(RX.LE.TCP(I ) )     GO 

CCNTINUE 

IDENT1=I 


BE    DEVELOPED. 
AND    DETERMINE 


INCREASE     TOTAL    CASE 
PRIORITY    CF    THE 


TO    5260 


LOCATE    THE 
ACCOUNTING 

DC  5265  1=1,50 


FIRST  EMPTY  CASE  VECTOR 
VECTOR  ARRAY  NCASE 


IN  TFE  CASE 
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5265 


527C 


C 
C 

c 
c 


c 
c 
c 
c 
c 
c 


5280 


528 


C 

c 
c 

c 

c 


529C 
5295 


C 

c 
c 
c 
c 
c 
c 


5300 


c 
c 

c 

c 


5302 


IF(NCAS(I ) 
CONTINUE 


EQ.O)  GC  TO  5270 


LOAD  CASE  VECTOR  WITH  CASE  PRICRITY 


NCAS( I )=IDENT1 
IF(  IDENTL.GT.l) 


GO  TO  5280 


DEVELOPING  A  PRIORITY  ONE  CASE.   DETERMINE 
IT  IS  A  CONTINUOUS  ON-SCENE  RELIEF  CASE  CR 


WHETHER 
NOT 


i  c  —  i  r  %  k 

RX=0.5+FL0AT(IC) *Z 
IF(RX.GT.PCSC)  GO  TO 
IDENT2=1 

GC  TO  5285 
IDENT2=0 


5280 


HAVING    DETERMINED    WHETHER    THE    CASE     IS    A    CONTINUOUS 
ON-SCENE    RELIEF    CASE    OR    NOT     (ONLY    PRICRITY    ONE- 
CASES    CAN    BE)     LOAD    CASE    VECTOR    WITH    ThIS     INFOR- 
MAT  ION 

NCASEt I  ,2)=IDENT2 
IC=IC*K 
PX=0.5+FLOAT( IC) *Z 

DETERMINE  GENERAL  LOCATION  THAT  THE  CASE  IS  IN: 
FIRST/THIRD  OR  FIFTH/SEVENTH  OR  EIGHTH/COAST 
GUARD  DISTRICTS 

DC    5290    J=lt3 

IF(RX.LE.PCLU)  )     GO    TO    5295 
CONTINUE 
I  (  —  T  C  ^:  K 

RT=0.5+FL0AT(  IC)  *Z 

t  r=  i r  -i-i' 

RU=0.5+FL0AT( IC) -Z 
IC=IC*K 
R0=0.5+FL0AT( IC)*Z 

IF  CASE  IS  IN  SEVENTH  OR  EIGHTH  COAST  GUARD  DIS- 
TRICT, DETERMINE  IF  IT  IS  IN  THE  GULF  CF  MEXICO, 
IF  NOT,  CONTINUE  -  IF  IT  IS  IN  GULF  OF  MEXICO, 
SHIFT  TO  DIFFERENT  SECTICN  TO  DETERMINE  CASE  LONG- 
ITUDE 


IFU.LT.3)  GO  TO  5300 
IF(RT.LE.PCGULF)  GO  TO  5370 


CASE    IS 
COAST. 


IN    ATLANTIC. 
MAX    DI STANCE 


DETERMINE 
LOGO    NM 


DISTANCE    FROM 


IDENT4=10.0+(-ALCN*ALCG(RO) ) 
IF(  IDENT4.GT.iOOO)     IDENT4=1000 

IF     CASE     IN    ATLANTIC     IS     LESS     THAN    300    NM    FROM    COAST 
DETERMINE    WHETHER     IT    IS    CF     THE    TYPE     THAT    A    HELI- 
COPTER   CAN     BE     SUBSTITUTED    FOR    A    C-130    OR    NOT    AND 
STORE     RESULT. 

IF(  IDENT4.GT  .300 )     GO    TO    5302 

IC=ICAK 

RX=0.5+FL0AT( IC)*Z 

IF(RX.GT.PSSC)     GO    TO    5302 

IDENT5-1 

GC    TO    5304 

IDENT5^0 

WITH    THE    CASE     IN    THE    ATLANTIC    GO    TO     ITS    GENERAL 

1       ORDER    TO    '  ITS    LATITUDE    !^AUTTr'' 

MILES    NORTH    OF     SIMULATED    BASE    LINE) 
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c 
c 
c 
c 

c 
c 
c 
c 


c 
c 
c 
c 


5304  IFU.EQ.3)  GO  TO  5340 
IFU.EQ.2)  GO  TO  5320 


5305 


C 

c 
c 

c 


5320 


C 

c 
c 
c 
c 
c 


5340 


5360 


C 

c 
c 
c 


c 
c 
c 
c 
c 
c 


5372 
53  7  5 


CASE  IS  IN  THE  FIRST  COAST  GUARD  DISTRICT. 
IT  IS  NORTH  OF  MAINE 

IF(RT.LE.PCNN)  GO  TO  5  305 


SEE  IF 


CASE  IS  IN  THE  FIRST  COAST  GUARD  DISTRICT  AND  NCT 
NORTH  OF  MAINE.   DETERMINE  ITS  LATITUDE 

IDENT3=  1780. 0+340. C-Rf 
GC  TO  5390 

CASE  IS  IN  THE  FIRST  COAST  GUARD  DISTRICT  NORTH  OF 
MAINE.   DETERMINE  ITS  LATITUDE 

IDENT3=2120.0+(-ALATN*ALOG(RU) ) 
IF(  IDENT3.GT.2620)  IDENT3=2620 
GC  TO  5390 

CASE  IS  IN  EITHER  THE  THIRD  OR  FIFTH  COAST  GUARD 
DISTRICT.   DETERMINE  ITS  LATITUDE 

I DENT3= 1130.0+650 .0*RU 

GO  TO  5390 

CASE  IS  IN  THE  SEVENTH  COAST  GUARD  DISTRICT  ATLAN- 
TIC REGION.   SEE  IF  IT  IS  SCUTH  OF  LINE  RUNNING 
FROM  CENTER  OF  FLCRIDA  THROUGH  PUERTO  RICC  AND 
THEN  DETERMINE  ITS  LATITUDE  CORRESPONDINGLY 

IF(RT .LE.PCSOUJ  GO  TO  5360 
IDENT3  =  7i0.0-i-420.0*RU 
GC  TO  5390 

ICENT3=480. 0+230. 0*RU 
GC  TO  5390 

CASE  IS  IN  GULF  OF  MEXICO.   DETERMINE  IIS  LATITUDE 
AND  DISTANCE  WEST  OF  SIMULATED  COAST  LINE 

IDENT3=615.0*RU 

IDENT4  =  -L0.0-(860.C-':R0) 

IF  CASE  WHICH  IS  IN  THE  GULF  OF  MEXICO  IS  WITHIN 
300  NM  OF  ANY  OF  THE  THREE  COASTS,  DETERMINE 
WHETHER  IT  IS  CF  THE  TYPE  THAT  A  HELICCPTER  CAN 
BE  SUBSTITUTED  FOR  A  C-130  OR  NOT  AND  STORE  RESULT 

IF(  IDENT3.GT.315)  GC  TO  5375 
IF(  IDENT4.LT  .-560)  GO  TO  5375 
IF( IDENT4.GT.-300)  GO  TO  5375 
IDENT5=0 
GC    TO  5390 
I  C  -  I  C"^  K 

RX=0.5+FL0AT( IC)*Z 
IF(RX.GT.PSSC)  GO  TO  5372 
IDENT5=1 

DETERMINE  CLOSEST  C-L30  STATION  TO  SCENE  OF  CASE 
AND  STORE  INFORMATION 


5390  DC  5395  L=Lt3 

LF(L)=SGRT((FLOAT( I DENT4 ) ** 2 )  +  ( F LCAT ( LAC ( L  )  -  I  CENT  3  ) 
1**2)) 

5395  CONTINUE 

IF( LF(  1  )  ,LE.LF(2)  )  GO  TO  5396 
IF(LF(2  )  .LE.LF(3)  )  GO  TO  5397 
IDENT6=3 
GO  TO  ' 

5396  ICENT6=L 
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c 
c 

c. 
c 
c 
c 


5397 


5398 


C 
C 

c 
c 
c 


c 
c 
c 
c 


5440 


c 

c 
c 
c 


5450 

5455 
5458 


54  6  0 


C 
C 
C 
C 
C 
C 

C 

c 
c 

c. 


GC  TO  5398 
IDENT6=2 

LOAD  CASE  VECTOR  WITH  LATITUDE,  LONGITUDE,  WHETHER 
CONTINUOUS  ON-SCENF  RELIEF  TYPE  OR  NCT  ,  CLCSFST 
C-130  STATION,  AND  DISTANCES  FROM  EACH  CF  THE 
THREE  C-130  STATIONS 

NCASEt I ,3)=IDENT3 
NCASE(  I  ,4) =IDENT4 
NCASEt I ,5)=IDENT5 
NCASEt  I  ,6)=IDENT6 
NCASEt  I  ,12)=LFt L) 
NCASF(  I  , L3)  =  LF(2) 
NCASE( I  ,14)=LF(3 ) 

IF  CASE  IS  A  CONTINUOUS  ON-SCENE  RELIEF  TYPE, 
SHIFT  TO  INDICATE  THE  NUMBER  OF  C-L30S  REQUIRED 
IS  ONE 

IF(  IDENT2.EQ.tl  GC  TO  5470 

I  C  =  I C  -*  K 

RP=0.5+FL0AT( IC)*Z 

IF( IDENT1.EQ.3)  GO  TO  5460 

IFt  IDENT1.EQ.2)  GO  TO  5450 


DEVELOPING  A 
RELIEF  CASE  - 

DC  5440  L  =  l,4 

IF(RP.LE.CDFAtD) 
CONTINUE 
IDENT7=L 
GC  TO  5 A 90 


PRIORITY  ONE,  NCN-CONT I NUOLS  ON-SCENE 
DETERMINE  NUMBER  OF  C-130S  REQUIREC 


GO  TO  544  5 


DEVELOPING  A  PRIORITY  THREE  CASE  -  DETERMINE  NUM- 
BER OF  C-130S  REQUIRED 

CC    5455     L=l,3 

IF(RP.LE.CDFB(L) )     GC    TO    5458 
CONTINUE 
IDENT7=L 

GC    TO    5490 

DEVELOPING  A  PRIORITY  THREE  CASE  -  DETERMINE 
WHETHER  IT  REQUIRES  ONE  OR  TWC  C-130S 

IF(RP.LE.CCFC)  GO  TC  5470 

IDENT7=2 
GO  TO  5490 

DEVELOPING  EITHER  A  PRIORITY  THREE  CASE  REQUIRING 
ONE  C-130  OR  A  CONTINUOUS  ON-SCENE  RELIEF  CASE. 
INITIALIZE  INDICATOR  TO  SHOW  CNLY  ONE  C-130  RE- 
QUIRED 


547C  IDENT7=1 


LOAD  CASE  VECTOR  WITH  NUMBER  OF  C-130S  REQUIRED 
FOR  CASE  BEING  DEVELOPED 


5490 


C 

C 

c 

c 
c 
c 
c 


NCASEt  I, 7)=IDENT7 
IC=IC*K 

RT  =  0. 5+FL0AT( IC) *Z 
IF(  IDENT2.EQ.0)  GO 


TO  5510 


DEVELOPING  A  CCNTINUOUS  ON-SCENE  RELIEF  CASE.   DE- 
TERMINE NUMBER  OF  ON-SCENE  HOURS  REQUIRED,  NOTE 
THE  INITIAL  DEPARTURE  TIME  AS  DURING  TEE  CURRENT 
TIME  STEP  AND  DETERMINE  THE  TIME  STEP  IN  WHICH  TEE 
CASE  CLOSES 
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c 
c 
c 
c 
c 


5510 


C 
C 
C 
C 


IDENT8=RT*24.0 

IF(  IDENT8 .LT .2)  IDENT8=2 
IDENT9=NCTS 

IDEN15= 1DENT8+IDENT9 
GC  TO  5596 

DEVELOPING  A  NCN-CONTI NUOUS  ON-SCFNE  RELIEF  TYPE 
CASE.   DETERMINE  EARLIEST  POSSIBLE  TIME  OF  DAY 
THAT  A  C-130  CAN  ARRIVE  ON-SCENE 

TTS=FLOAT(LF( IDENT6) )/ 290.0 

NTTS=TTS 

NTPOS=NDAYTI+NTTS 

IF(NTP0S.GT.24)     N T P0S=NTP0S-24 


DETERMINE,     BY 
AND    PART     DAYS 


CASE    PRIORITY,     THE    NUMBER 
THE    CASE    WILL     BE    UNDERWAY 


OF  WHCLE 


C 

c 
c 
c 
c 

I 

c 

c 
c 
c 


552C 
5530 


IF( IDENTL. 
IF{  IDENTl. 
FS=RT*4.0 
GC  TO  5540 
F8=RT*3.0 
GO  TO  5540 
F8=RT*2  .0 


GT 
GT 


2) 
I  ) 


GO 
GC 


TO 
TO 


5  530 
5520 


DETERMINE  MAXIMUM  NUMBER  OF  HOURS  IN  CNE  DAY  THAT 
A  C-130  COULD  BE  ON-SCENE  WITH  A  MAXIMUM  OF  TEN 
FLIGHT  HOURS  AVAILABLE  PER  DAY 


5540  FF8=10.0-(2*7TS) 


DETERMINE  INITIAL  TOTAL  HOURS  ON-SCENE  PER  AIR- 
CRAFT REQUIRED  FOR  THE  CASE.   MINIMUM  IS  TWO  HOURS 


C 
C 

c 
c 
c 
c 


5548 


IDENT8=F8*FF8 
IF( IDENT8  .LT  .2) 


IDENT8=2 


C 
C 

c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


ZERO  FIRST  DAY  CN-SCENE  TIME  CAPABILITY  INDICATOR 
AND  DETERMINE  INTEGER  COMPUTATION  FACTORS  OF  HOURS 
ON-SCENE  PER  AIRCRAFT  FOR  CASE  CLOSURE  TIME  DE- 
TERMINATION 

NTOSC  =  0 

KF8=F8 

REN=F8-KF8 

KCQR=(REM*FF8)+TTS 

IF (NTP0S.GT.16)  GO  TO  5550 
IF(NTP0S.LE.6)  GO  TO  5560 

EARLIEST  TIME  POSSIBLE  FOR  C-130  TO  GET  ON-SCENE 
IS  BETWEEN  0600  AND  1600.   DETERMINE  TCTAL  ON- 
SCENE  HOURS  REQUIRED  USING  NUMBER  OF  HCLRS  FIRST 
DAY  PLUS  NUMBER  OF  CAYS  FOR  CASE  DETERMINED 
EARLIER.  INITIALIZE  INDICATOR  TC  SHOW  THAT  TAKE 
OFF  FOR  CASE  IS  TO  BE  DURING  CURRENT  T I  I*  E  STEP 

NTCSC=18-NTP0S 
IF(NTOSC.GT.FFS)  NT0SC=FF8 
IDENT8=(IDENT8+NT0SC)*IDENT7 

IDENT9=NCTS 
GC  TO  5590 


555C 


EARLIEST  POSSIBLE  TIKE 
1600  SO  DELAY  TAKE  OFF 
COMPUTE  TOTAL  CN-SCENE 
CORRECTION 

!r"~N"<"8^IDENT8*IDENT7 

NTSTG=3C-NDAYTI 

IDENT9=NCTS+NTSTG 

GO  TO  5590 


FOR  C-130  ON-SCENE  IS  AFTER 
UNTIL  0600  NEXT  MORNING. 
HOURS  REQUIRED  WITHOUT  ANY 
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c 

C  EARLIEST  POSSIBLE  TIME  FOR  C-130  ON-SCENE  IS  BE- 

C  FORE  0600  SO  DELAY  TAKE  OFF  UNTIL  0600.   COMPUTE 

C  TOTAL  ON-SCENE  HOURS  REQUIRED  WITHOUT  ANY  CORRECT- 

C  ION 

C 
5560  IDFNT8= I  DENT  8*1 DENT7 

IF(NDAYTI .GT  .6)  GO  TO  5570 

NTSTG=6-NDAYTI 

CC  TO  5  580 
5570  NTSTG=30-NDAYT1 
553C  IDENT9=NCTS+NTSTG 
C 

C  DETERMINE  TIME  STEP  IN  WHICH  CASE  IS  TC  CLOSE  CON- 

C  SIDERING  CORRECTIONS  FOR  PARTIAL  DAYS  ACTION,  ETC. 

C 
5590  IF(NTQSC.EC.O)  GO  TC  5594 

I  DEN  1 5= I  DENT  9+ ( 3  0-NDA YT I )  +  ( KF8*  ?A  ) +KCOR 

GC  TO  5596 
5  5  94  IDEN15=IDENT9+(KF8*24)+KC0R 
C 

C  LOAD  CASE  VECTOR  KITH  TOTAL  HOURS  ON-SCENE,  FIRST 

C  C-130  DEPARTURE  TIME,  CASE  CLCSE  TIME,  /SNC  CASE 

C  NUMBER 

C 
5596  NCASE( I  ,8) =IDENT8 

NCASEt  I  ,9)=IDENT9 

NCASEt 1,10 )=1 

NCASE(  I  ,15)=IDEN15 

NCASE(  I  ,  L6)=NC 
C 

C  ADJUST  TALLY  CF  TOTAL  CASE  CN-SCENE  HCUPS  REQUIRED 

C 

NUSFHR=NUSFHR+IDENT8 
C 

C  ADJUST  COUNTER  OF  CASES  TO  BE  DETERMINED  AND  GO  TO 

C  DETERMINE  IF  THERE  ARE  MORE  CASES  OR  MISSIONS  TO 

C  BE  DEVELOPED  THIS  TIME  STEP 

C 


NSCTD=NSCTD-1 
GO  TO  5000 
END 
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^  »i,  a,  j* 


Q  ■*  $  *  V- : 
Q  *  i:  *  * 

C; 
C* 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 


if  %  ^  h 

SUBROUTINE     SUB  **** 

yL>  %V  *-^"  ■• '-» 

THE  KEY  CALLING  PARAMETERS  FCR  SUBROUTINE  SUB  ARE 
THE  C-I30  STATION  AREA  REQUIRING  A  SUBSTITUTION 
(NAREA)  AND  NTYPE  WHICH  INDICATES  IF  A  CASE  OR 
CASES  AND  POSSIBLY  MISSIONS  WITHIN  THAT  AREA  ARE 
PROSPECTIVELY  SUBSTITUTABLE  (I)  OR  IF  THERE  ARE  NO 
SUBSTITUTABLE  CASES  IN  THE  AREA  BUT  THERE  IS  AT 
LEAST  ONE  PROSPECTIVELY  SUB  ST  I TUTAB L E  MISSION  IN 
THE  AREA  (2) 


THE 
PRO 
THE 
COP 
WIT 
ORD 
FOL 
PR  I 
ARE 
SUF 
THE 
SUB 


DIMENSI 
CCMMON/ 
PCGULF, 
PSC-PPS 
GNDK4) 
COMMON/ 
NDAYTI, 
CCKMON/ 
NHACT( 2 
NCASA( L 
COMMON/ 
COMMON/ 
COMMON/ 
COMMON/ 


FUNC 
SPECT 

SUBJ 
TERS 
H  HH- 
ER  OF 
LOWED 
ORITY 

CONT 
F  I  C  I  E 

CURR 
STITU 


ON  NC 
INFOL 
Z,CDF 
C  (  3 )  , 

TQND2 
INF02 
NM,  ID 
INF  03 
0,6)  , 
0,3), 
INF  04 
INFO  5 
INF06 
INF07 


n 
SU 


TION 
IVE 
ECT  AR 
FOR  C- 
3FS  BE 
ATTEM 
BY  MI 
W  I T  H  I 
INUED 
NT  TO 
ENT  TI 
TIONS 


SU5{ 5, 
/TCP  (3 
A  (4)  VC 

PH?LDt 
(6),QN 
/ICtNS 
,L0C(9 

/NTYPE 
NTPR,  N 
I F ,  N  P  A 

/NRTNt 
/IE,NA 
/J  PR  It 
/DIST, 


F  SUBROUTINE  SLE  IS  TO  IDENTIFY  ALL 
BSTITUTABLE  CASES  AND  MISSIONS  IN 
EA  ANC  ATTEMPT  TC  SUBSTITUTE  HELI- 
130S  ON  THESE  CASES  ANC  MISSIONS 
ING  PREFERABLE  TO  HH-52AS.   THE 
PTED  SUBSTITUTION  IS  CASES  FIRST 
SSIONS  AND  FROM  LOWEST  TC  HIGHEST 
N  EACH  CLASS.   SUBSTITUTION  ATTEMPTS 
UNTIL  A)  THE  C-130S  AVAILABLE  ARE 
MEET  THE  REMAINING  REQUIREMENTS  FCR 
ME  STEP  OR  B)  THERE  ARE  NC  FURTHER 
POSSIBLE;  WHICHEVER  OCCURS  FIRST. 


3)  , 
>,P 

CFB 

D3( 
CTD 
)  ,N 
,NA 
PRT 
(3) 
NIS 
REA 
JDE 
DIS 


NMSUB(5,3) 

CL( 3) ,  PCSC ,  PSCI ?PSSC,PCSCU,PCNN, 
(3),CDFCtPRI(3), PH0LC1,PK3LD2, 
DICtPMSCO)  ,PPUP(  LL  )  ,  FSUBM, 
15),PTAD,TSPDF(5),ALCN,ALATN 
,NCASE(50, L7) ,NCTS , K,LAC(3 ), 
SPNST, NNSCTD,NMISSN(  ICC? 16)  ,  NC 
REA,NSNA,NSCA,NSSA,NSTA(25,  12)  , 
(3) , NTPA,NMISA(20,3 ) , 

SN,NACE,N*PANE,NPLANE(  15,  16) 

S,NPLUSE,NPIS 

CNCLOSE 

TR,XHRST 

PROSPECTIVE  SUBSTITL1- 


C 

c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


50CC 

501C 


ZERO  ACCOUNTING  VECTORS  FOR 
ABLE  CASES  AND  MISSIONS 

DO  5010  1=1,5 
DO  5000  J=L,3 
NCSUB( I , J)=0 
NMSUB( I , J)=0 
CONTINUE 
CONTINUE 

INITIALIZE  PROSPECTIVE  SUBS T  ITUT ABL E  CASE  COUNTER 
TO  ZERO.   IF  NO  SUBSTI TUTABLE  CASES  IN  SUBJECT 
AREA  FOR  THIS  TIME  STEP  GO  DIRECTLY  TC  FINDING 
PROSPECTIVE  SUBSTITUTABLE  MISSIONS 


LC  =  0 
IF(NTYPE.EQ.2) 


GO  TO  5080 


FIND  CASES  IN  SUBJECT  AREA  REQUIRING  ACTION  DURING 
CURRENT  TIME  STEP  THAT  MAY  EE  SUBSTITUTABLE  ANC 
LOAD  PROSPECTIVE  SUBSTITUTABLE  CASE  ACCOUNTING 
VECTORS 
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c 
c 
c 
c 
c 


JJ=1 

DC  5050  1=1, 10 

If (NCASA(  I  ,3)  .EQ.O)  GC  TO  5060 

IF(NCASA( I ,3) .EQ.NAREA)  GO  10  502C 

GC  TO  5050 

5020 

IF(NCASE(NCASA( I  ,  1)  ,  5)  .EQ.l)  GO  TO  5030 

GC  TO  5050 

502C 

CC  5040  L=l,2 

NCSUB(JJ,L  )=NCASA(  1  ,L  ) 

5040 

CCNT  INUE 

JJ=JJ+1 

IF(JJ  .LT.6)  GO  TO  5050 

GC  TO  5060 

505C 

CCNTINUE 

C 

c 

C 

c 
c 

C 


506C 
507C 


c 
c 
c 

C 

c 


c. 
c 

C 

c 


5080 

5090 
51CC 
511C 

5115 

5120 
5130 


C 
C 
C 

C 
C 


5140 
5150 


5152 


C 
C 
C 
C 

C 


DETERMINE  TOTAL  NUMBER  OF  PROSPECTIVE  SL'BSTITUT- 
ABLE  CASES  IN  SU3JECT  AREA  REQUIRING  ACTICN  DURING 
CURRENT  TIME  STEP 


DC  5070  M=l,5 

IF(NCSUB(M,  1) 
LC=LC+1 

CCNTINUE 


EQ.O)  GO  TO  5080 


FIND  MISSIONS  IN  SUBJECT  AREA 

DURING  CURRENT  TIME  STEP  THAT 

AND  LOAD  PROSPECTIVE  SUBST I TUTABLE  MIS< 

ACCOUNTING  VECTORS 


REQUIRING  ACTION 
MAY  BE  SUBSTITUTAELE 


ION 


JJ  =  1 

DO  5115  1=1,20 

IF(NMISA( I ,3) .EQ.O)  GO  TO  5120 

IFCNMISAU  ,3)  .EQ.NAREA)  GO  TO  5090 

GC  TO  5  115 

IF(NMISSN(NMISA( I  ,  1) ,5) .EQ.  I)  GO  TO  5100 

GC  TO  5115 

DO  5110  L=l,2 

N.VSUB(JJ,L)=NMISAC  I,L  ) 

CCNTINUE 

JJ=JJ+1 

IFUJ.LT.6)  GO  TO  5115 

GC  TO  5120 

CCNTINUE 

DETERMINE  TOTAL  NUMBER  OF  PRCSPECTIVE  SUBSTITUT- 
ABLE  MISSIONS  IN  SUBJECT  AREA  REQUIRING  ACTION 
DURING  CURRENT  TIME  STEP 

LM=0 

DC  5130  M=l,5 

IF(NMSUB(M,1) 

LN=LM+1 

CCNTINUE 


EQ.O)  GO  TO  5140 


IF  THERE 
DIRECTLY 

IF(LC.EQ.O) 
CCNTINUE 


ARE  NO  PROSPECTIVE  SUBSTI TUTAB LE  CASES  GO 
TO  HANDLING  MISSIONS 

GO  TO  5160 


RECORD  POSITION  OF  PROSPECTIVE  SUB S T I TL TA BLE  CASE 
OF  LOWEST  PRIORITY  WHICH  HAS  NOT  BEEN  EXAMINED 
BEFCRE 

LATC=NCASE(NCSU8(LC,1),3) 
L0NGC  =  NCASE(NCSUB(LC,1 )  ,4) 

SET  CASE  SUBSTITUTION  INDICATOR  AND  SHIFT  TO  DE- 
TERMINE IF  CASE  IS  WITHIN  RANGE  CF  HELICOPTER 
STATION  AND  IF  HELICOPTER  AVAILABLE 

NTYSUB=i 
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c 
c 
c 

c 
c 
c 
c 


5160 


GC    TO    5170 
CCNTINUE 


C 
C 
C 
C 

c 
c 
c 
c 

c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 


IF  THERE  ARE  NCT  ANYMORE  PROSPFCTIVE  SLBSTITUT- 
ABLE  MISSIONS  THEN  RETURN  -  CTFERWISE  RECORD 
POSITION  OF  PROSPECTIVE  SUB  ST  I  TUT A3 L E  NISSION  OF 
LOWEST  PRIORITY  WHICH  HAS  NOT  BEEN  EXANINED  YET 
AND  SET  MISSION  SUBSTITUTION  INDICATCR 

IF(LM.EC.O)  GO  TO  57 LO 
LATC=NMISSN(NMSUB(LM, 1 )  ,3  ) 
LONGC  =  NMI SSN(NMSU3(LM»  1  )  ,4) 
NTYSUB=2 

DETERMINE  PROPER  HELICOPTER  STATIONS  TC  INVESTI- 
GATE FOR  POSSIBLE  SUBSTITUTION  ON  SUBJECT  CASE  OR 
MISSION 

5  170     IF(NAREA.EO.L)    GO    TO    5  180 

IF(NAREA.EC2  )     GO    TO    5190 

I I=NSNA+NSCA+1 

I  II  =  NSNA  +  NSCA+NSSA 

GC  TO  5200 
51£C  11=1 

III=NSNA 

GC  TO  5200 
5190  I  I  =  N S N A -s  1 

I  II=NSNA+NSCA 

BEGIN  INVESTIGATION  OF  PROPER  HELICOPTER  STATIONS 
TO  DETERMINE  STATIONS  WITHIN  RANGE,   IF  ANY 

520C  DO  5680  L=  1 1  ,  I  I  I 

IF  LATITUDE  OF  CASE  OR  MISSICN  IS  MOPE  THAN  300  NM 
NORTH  OF  SUBJECT  STATION  TRY  NEXT  STATICN  NORTH 


C 

c 
c 
c 


c 
c 
c 
c 

c 
c 

c 


IFtLATC  .GT.NSTA( L»l )+300)     GOTO    5680 

IF    LATITUDE    OF    CASE    HR    MISSICN     IS    MORE     THAN    300    NM 
SOUTH    OF     SUBJECT    STATION    THEN     IT     IS     NCT    WITHIN 
RANGE    SO    TRANSFER    TO    NOTE    THAT     IT    IS    NCT     SUB- 
STITUTABLE 

IF(LATC.LT.NSTA(L, D-300)     GOTO     5690 

CASE  OR  MISSION  IS  WITHIN  300  NN  LATITUCE  OF  SUB- 
JECT STATION  SO  FIND  ACTUAL  DISTANCE  FRCM  STATICN 
IF  DISTANCE  IS  GREATER  THAN  30CNM,  TRY  NEXT 
STATION  NORTH 

CIST=SQRT( ( FLOAT (L AT C-NSTA(Lt  1 )  )**2)+< FLOAT (LONGC- 
1NSTA(L,2))**2) ) 
IF(DIST  .GT.300)  GO  TO  5680 

IF  STATION  DOES  NOT  HAVE  HH-3FS  SEE  IF  SUBSTITU- 
TION CAN  BE  MADE  WITH  HH-52(S) 

.   IF(NSTA(L,3) .EQ.O)  GO  TO  5430 
52  10  IF=IF*K 

RX=C.5+FL0AT(IF)*Z 

DETERMINE  IF  HH-3F  IS  AVAILABLE  AT  STATICNt  IF 
NOT,  TRY  TO  MAKE  SUBSTITUTION  WITH  HF-52AS 

IF(RX.GT. (NSTA(L,8) )*.0l)  GOTO  5430 

DETERMINE  TIME  HH-3F  WILL  HAVE  AVAILABLE  CN-SCENE 

TTS=DIST/125.0 

T  T  S !  !  '•  C .  5 
IF(M'OS.LE.O)  NT0S=1 


16  0 


c 
c 
c 


LOAD  HELICOPTER  ACTIVITY  VECTCR 


5220 
523C 


0)  GO  TO  5230 


TO  5240 


5240 


C 
C 

c 
c 


CC  5220  M=l,20 

IF(NHACT(M,1) .EQ 

CCNTINUE 

NHACT(M,1)=3 

NHACK  M,  2) =L 

IF(NTYSUB.EQ.2)  GO 

NHACK  M  ,3)  =NCTS+5 

NHACT(M,4»=NCASE(NCSUB(LC,  L) ,16) 

NHACT(M,5)=0 

NHACK  M  ,6)  =NCTS+TTS+0.25+NT0S 

GO    TO    5250 

NHACT(M,4)=0 

NHACK  M  ,5)  =NMI SSN( NKSU8(LM, 1  ) 

NF  ACT ( M , 3 )  =  NM I S  SN ( NM  SU  B ( L  M ,  I) 

NHACT(M,6) =N^ISSN(NMSUE(LM,L) 


16) 

15J+NCTS 
LO) 


ADJUST    HELICOPTER     STATION    VECTOR    FOR    HH-3F    ON 
C-130    CASES     AND    HH-3F    AVAILABILITY 


5250 

5260 
527C 


C 
C 

c 

c. 
c 


5280 
529C 


NSTA(L, 6) 
IF(NSTA(L,3) 
IF(NSTA(L,6) 
NSTA(L, 8)=5 
GC  TO  5290 
NSTA(LT  8)=0 
GC  TO  5290 
IF(NSTA(L,6) 
NSTA(L, 8)=L0 
GC  TO  5290 
NSTA(L,  8)  -"=0 
IF(NTYSU3.EQ 


NSTA(L,6 
GT.3) 
GT.  I) 


)+l 

GO 
GO 


TO 
TO 


5270 
5260 


GT.l  )  GO  TO  5280 


2)  GO  TO  5360 


C 

c 
c 
c 

c 

c 
c 
c 
c 
c 
c 


IF  SUBSTITUTING  ON  A  CASE,  AC JUST  SU EJECT  CASE 
VICTOR,  NUMBER  OF  PLANES  REQUIRED  IN  SUBJECT  AREA 
AND  TCTAL  FOR  CURRENT  TIME  STEP 

NCASE (NCSUBCLC, 1  ) ,  1  I  )  =  NCASE (NCSUB ( LC , 1)  ,  I  1 )  +  I 

NCASE (NCSUB(LC,1  ) , 8  )  =NC AS E ( NCSU B ( L C, 1 ) ,8  )-NTOS 
IF(NCASE(NCSUB(LC, 1) ,8) .LT.O)  NCASE ( NCSUB ( LC , 1 )  ,8 )=0 
N  P  RT  (  N  A  R  E  A  )  =  N  PRT  (  N  AR  E  A  )  -  I 

I F (NCASE (NCSUB (L C, L  )  ,7  )  .GT  .  NC AS E ( NCSUB ( LC,  1  ), 11)  )  GO 
1T0  5293 
NCASE(NCSUB(LC, 1 ) ,9 ) =NCTS-NDAYT  1  +  30 
5293  NTPR=NTPR~1 

IF(NCASE(NCSUB(LC,  I) ,7)  .GT . NC AS E ( NCSUB ( LC, 1) ,1L) )  GO 
1TC  5300 

IF  SUBJECT  CASE  DOES  NOT  REQUIRE  ANY  FLRTHER 
ACTION  DURING  CURRENT  TIME  STEP  REMOVE  ITS  ACTION 
VECTOR 

GC  TO  5  310 

IF  ENOUGH  C-130S  ARE  AVAILABLE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  OTHERWISE 
ATTFMPT  TO  SUBSTITUTE  ANCTHER  FELICCPTEF  CN  SUB- 
JECT CASE 


53CC 


C 

C 

c 

c 


531C 
53  2  C 


IF(NTPA  .GF.NTPR)  GC  TO  5710 
GC  TO  5210 

NO  FURTHER  ACTION  REQUIRED  ON  SUBJECT  CASE  THIS 
TIME  STEP  SO  ZERO  ITS  ACTION  VECTOR 

DC  5320  J=l  , 10 

IF(NCASA(J , 1) ,EQ.NCSUB(LC, 1) )  GO  TO  5330 

CCNTINUE 

5340  I=J, 10 
IF(NCASA( 1+1, 1) .EQ.O)  GO  TO  5342 
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c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 


NCASA( I  ,1 )=NCASA(  1+1,1) 

NCASA(  I  ,  2>=NCASA(  1  +  1,2) 

NCASa(  I  ,3)=NCASA(  1  +  1,3) 
534C  CCNTINUE 
5342  DC  5344  M=l,3 

NCASA(  I  ,M)=0 
344  CONTINUE 

IF  ENOUGH  C-L30S  ARE  AVAILABLE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  CTFEPWISE  SE^ 
IF  THERE  IS  ANOTHER  PROSPECTIVE  SUB  ST  I TLTABLE  CASE 
TO  TRY,  IF  SO,  TRY  IT,  IF  NOT  GO  TO  CHECK  PROSPEC- 
TIVE SUBSTITUTABLE  MISSIONS 

535C    IF(NTPA.GE.NTPR)     GC    TO    5710 
LC=LC-1 

IF(LC.EC.O)    GO    TO    5160 
GO    TO    5150 

IF    SUBSTITUTING    ON    A    MISSION,     ADJUST     SUBJECT 
MISSION    VECTOR,     NUN'BER    OF    PLANES    REQUIRED     IN    SUB- 
JECT   AREA    AND    TOTAL    FOR    CURRENT    TIME     STEP 

53  6  0    NMISSNt  NMSUB<LM,1)  ,  1 1  )  =NMI  SSN(  NNSUE  (  LM,  1  )  ,  1 1 )  +1 
NPRT(NAREA)=NPRT(NAREA)-l 
NTPR=NTPR-1 

IF(NMISSN(NMSUB(LM,1)  ,7)  . GT . NM I SSN ( NMSU B ( L ¥  ,  1  )  ,  11  )) 
IGC    TO    5370 

IF     SUBJECT    MISSION    DOES    NOT    REQUIRE    ANY    FURTHER 
ACTION    DURING    CURRENT    TIME    STEP    REMOVE     ITS    ACTICN 
VECTOR 

GC    TO    5380 

IF  ENOUGH  C-130S  ARE  AVAILAELE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  ST^P  RETURN  -  OTHERWISE 
ATTEMPT  TO  SUBSTITUTE  ANOTHER  hELICOPTEF  ON  SUB- 
JECT MISSION 


537C 


lF(NTPA.GE.NTPR) 
GO  TO  5210 


GC  TO  5710 


NO  FURTHER  ACTION 
TIME  STEP  SO  ZERO 


REQUIRED  ON  SUBJECT  MISSION  THIS 
ITS  ACTION  VECTOR 


C 
C 
C 

c 

c 
c 


;3ec 

5390 
54CC 


5410 
5412 

54  14 


5420 


C 

c 
c 
c 


DC  5390  J=l,20 

IF(NMISA( J,  1)  .EQ.NMSUB(LM,1)  )  GO  TC  5400 

CCNTINUE 

DC  5410  I=J,20 

IF(NMISA{ 1  +  1,  1)  .EQ.O)  GO  TO  5412 

NMISA{ I  ,1 )=NMISA( 1  +  1,1) 

NMISA( I  ,2) =NMISA( 1  +  1,2) 

NMSA(  I  ,3)=NMISA(  1  +  1,3) 

CCNTINUE 

DO  5414  M=l,3 

NMISA(  I  ,M)=0 

CCNTINUE 

IF  ENOUGH  C-130S  ARE  AVAILABLE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  OTHERWISE  SEE 
IF  THERE  IS  ANOTHER  PROSPECTIVE  SUB  ST  I  T LTAbLE 
MISSION  TO  TRY,  IF  SO,  TRY  IT,  IF  NOT,  RETURN 

IF(NTPA  .GE.NTPR)  GO  TO  5710 

LN=LM-1 

IF(LM.EC.O)  GO  TO  5710 

GO  TO  5  160 

IF  MISSION  OR  CASE  IS  WITHIN  150  NM  CF  SUBJECT 
STATIC;  ATT-  STITU"     TH  HH-52AS  -  Ic 

NOT,  TRY  NEXT  CASE  OP  MISSION 
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5430 


C 
C 
C 
C 


54  4  0 


C 
C 
C 
C 


c 
c 
c 
c 
c 

c 
c 

c 
c 
c 


5450 

5460 


C 
C 
C 
C 


c. 
c 
c 

c 


5470 


548C 

549C 
5500 


C 

c 
c 


IFtDIST  .LE  .150)  GO  TO  5440 
GC  TO  5672 

IF  SUBJFCT  STATICN  DOES  NOT  HAVE  HH-52AS  TRY  TO 
SUBSTITUTE  ON  ANOTHER  CASE  OR  MISSION 

IF(NSTA(L,4) .EQ.O)  GO  TO  5672 

IF=IF*K 

RX  =  0.5+FL0AT(  IF)  *  Z 

IF  HH-52A  NOT  AVAILABLE  TRY  TO  SUBSTITUTE  ON 
ANOTHER  CASE  OR  MISSION 

IF(RX.GT.(NSTA(L,11)  )*0.01)  GO  TO  5672 

IF(NTYSUB.EQ.2)  GC  TO  5480 

TTS=DIST/90.0 

NTCS=(3.5-(2*TTS)  )+0.5 

IF(NTOS.LE.O)  NTOS=L 

IF(NCASE(NCSUB(LC,  l)t  11)  .GT.O)  GO  TO  5480 

IF  CASE  WITHOUT  ANOTHER  PLANE  ON  SCENE  AND  TWO 
HH-52AS  ARE  NOT  AVAILABLE  TRY  TO  SUBSTITUTE  ON 
ANOTHER  CASE  OR  MISSION 

IFCRX.GT. (NSTA(L t12) )*0.01)  GO  TO  5672 

ADJUST  HELICOPTER  STATION  VFCTCR  AND  LCAC  HELI- 
COPTER ACTIVITY  VECTOR  FOR  TWO  HH-52AS  SUBSTITUT- 
ING ON  CASE 

NSTA(LT9)=NSTA(L ,9  )+2 

NSTA( L , 11) =0 

NSTAtL,  12)=0 

DC  545  0  r-'  =  l,20 

IF(NHACT(M,1) .EQ.O)  GO  TO  5460 

CCNTINUE 

NHACT(M,1)=5 

NHACT(M,2) =L 

NHACT(M,3)=NCTS+3 

NHACT(M,4) =NCASE (NCSUBUCl  )  t16  ) 

NHACT(M,6)=NCTS+TTS+0.25+NT0S 

DC  547  0  MM=lf6 

NHACT( M  +  l  *MM) =NHACT(N,MM) 

CCNTINUE 


ADJUST  SUBJECT  CASE 
PLANE  ADDED  TO  CASE 


VECTOR  REFLECTING  CNLY  CNE 


NCASF(NCSUB( LC,  1) 
NCASE(NCSUB(LCf  1) 
IF(NCASE(NCSUB(LC,1  ) 
GO  TO  5540 

ADJUST  HELICOPTER 
BEING  SUBSTITUTED 


, 11)=NCASE(NCSUE(LC,1)  »  1 1  ) +1 

,  8)  =  NCASE(NCSU8(LC,  1)  ,8)-<MCS*2) 


8 )  .LT  .0)     NCASE(NCSU3  (LCt  l)i 8)  =  0 


STATICN 

ON    CASE 


VECTCR    FOR 
OR    MISSION 


CNE    HF-52A 


)  +  l 

GO 
GO 


TO 
TO 


5500 
5490 


NSTA(L,9)=NSTA(L,9 

I F(NSTA(L,4)  .GT.3  ) 

IF(NSTA(L,9)  .GT .1  ) 

NSTA(  L ,11 ) =5 

NSTA(L ,  12)=0 

GC    TO    5  510 

NSTA(L , 11) =0 

NSTA(L ,  12)=0 

GC    TO    5510 

IF(NSTA(L,9)  .GT.  I)     GO    TO    5490 

NSTACL,  11)  =  10 

NSTA(L,12)=0 

LOAD    HELICOPTER    ACTIVITY    VECTCR    FOR     CNE    HH-5I    ! 
BEING    SUBSTITUTED    ON    CASE    OR    MISSION 
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55  10 

552C 
5530 


C 
C 
C 


DO  5520  M=L,20 

IF(N'HACT(M,1)  .EQ.O)  GO  TO  5  530 

C( NTINUE 

NHACKMi  LJ  =  5 

NHACT(M,2)=L 

IF(NTYS0B.EQ.2)  GO  TO  5610 

NHACTCMf 3)=NCTS+3 

NHACT{M,4)=NCASE (NCSUB(LC,1),16) 

NHACT(M,6)=NCTS+TTS+0.25+NT0S 

IF  SUBSTITUTING  ON  CASE  ADJUST  SUBJECT  CASE  VECTOR 

NCASE(NCSUB(LC,  L),ll )=NCAS E ( NCSUE ( LC ,  L)  ,  11) +  1 

NCASE(NCSU8(LC,1) ,3) =NCASE ( NCSU E ( LC , 1 ) , 8)-NTCS 
IF(NCASE(NCSUB(LC,  1) , 8) .LT.O)  NCASE(IMCSUB(LC,1),8)=0 


UPDATE  PLANES  REQUIRED 
FOR  CURRENT  TIME  STEP 


IN  SUEJECT  ARE£  AND  TOTAL 


C 

C 

c 
c 
c 

c 
c 
c 
c 
c 
c 


554C  NPRT(NAREA)=N:',RT(  NAREAJ-1 

IF(NCASE(NCSUB(LC,  1)  ,7)  .GT  .  NCAS  E  (  NCSUB  (  LC  ,U,1L)|  GO 

NCASF( NCSUB( LC  ,L)  ,9) =NCTS+30-NDAYT  I 
5543  NTPR=NTPR-l 

IF(NCASE(NCSUB(LC, 1  )  ,7)  .GT .NCAS E (NCSU B( LC  ,  1  ),  11)  )  GO 
1T0  5550 

IF  SUBJECT  CASE  DEES  NOT  REQUIRE  ANY  FURTHER 
ACTION  DURING  CURRENT  TIME  STEP  REMOVE  ITS  ACTICN 
VECTOR 


GO  TO  5560 


IF  ENOUGH  C-130S  ARE  AVAILAELE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  CTFEPWISE 
ATTEMPT  TO  SUBSTITUTE  ANOTHER  HELICOPTER  ON  SUB- 
JECT CASE 


5550 


C 

c 
c 

C 


IF(NTPA.GE.NTPR) 
GC  TO  5440 


GO  TO  5710 


NO  FURTHER  ACTION 
TIME  STEP  SO  ZERO 


REQUIRED  ON  SUBJECT 
ITS  ACTION  VECTOR 


CASE  THIS 


5560 

5570 

5580 


5  p.  g  c 

5590 
5594 


C 

c 
c 
c 
c 

c 
c 


5596 
56CC 


C 

c 
c 
c 


DC  5570  J=l,  10 

IF(NCASA( J,l ).EQ.NCSUB(LC,1 ) )  GC  TC  5580 

CONTINUE 

DC  5590  I=J,10 

J  F(NCASA(  I+'ItD  .EQ.O)  GC  TO  5594 

DC  5585  M=l,3 

NCASA( I  ,M)=NCASA( I+1,M) 

CONTINUE 

CONTINUE 

DO  559  8  M=l,3 

NCASA(I,M)=0 

IF  ENOUGH  C-130S  ARE  AVAILABLE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  CTFEPWISE  SEE 
IF  THERE  IS  ANOTHER  PROSPECTIVE  SUB  ST  I T L T ABL E  CASE 
TO  TRY,  IF  SO,  TRY  IT,  IF  NCT  GC  TO  CFECK  ON  PRO- 
SPECTIVE SUBSTITUTABLE  MISSIONS 

CONTINUE 

IF(NTPA.GE.NTPR)  GC  TO  5710 

LC=LC-1 

IF(LC.EG.O)  GO  TO  5160 

GC  TO  5150 


CONTINUE  LOADING  HELICOPTER  ACTIVITY  VECTCR 


H-52A  BEING 
J  EC  "i  MI  SSI  i 


I 
VECTCR,  PLANES 


UIRED 


FOR 

CI'B. 

IN  SUBJECT 
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c 
c 
c 
c 
c 

c 

c 
c 
c 
c 
c 


AREA  AND  TOTAL  FOR  CURRENT  TINE  STEP 

56  1C  NHACT(M,3)=NMISSN(NMSU6(LM,1),15  J+NCTS 
NHACT (M,5)=NMISSN(NMSUB(LM, 1 ) , 1 6) 
NHACT (M,6»=NMISSN(NMSUS(LM, 1) f 10) 

NMSSNI  NMSU3(LM,1)  ,  1 1  )  =NMI  SSN  (  N  f*  SUB  (  LM,  1  )  ,  1 1  )  +  1 
NPRT(NAREA)=NPRT(NAREA)-1 
NTFR=NTPR-1 

IF(NMISSN(NMSUB(  LM  ,  1 )  ,  7  )  .  GT  .NMI  S  SN  (  NMSU  B  (  LP  ,  1  )  ,  I  1  J  ) 
IGC  TO  5620 


IF  SUBJECT  MISSION  DOES  NOT  REQUIRE  ANY  FURTHER 
ACTION  DURING  CURRENT  TIME  STEP  REMOVE  ITS  ACTICN 
VECTOR 


GC  TO  5630 


IF  ENOUGH  C-130S  ARE  AVAILABLE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  OTHERWISE 
ATTEMPT  TO  SUBSTITUTE  ANOTHER  HELICOPTER  ON  SUB- 
JECT MISSION 


562C 


IF(NTPA.GE.NTPR) 
GO  TO  5440 


GO  TO  5710 


NO  FURTHER  ACTICN 
TIME  STEP  SO  ZERO 


REQUIRED  CN  SUBJECT 
ITS  ACTION  VECTOR 


MISSION  THIS 


C 

c 
c 
c 
c 
c 


563C  DC  56 
IF(NM 
5640  CENT  I 
565C  DO  56 
I  F  ( NM 
DC  56 
NMISA 
CCNTI 
CCNTI 
DO  56 
NMISA 
CCNTI 


5655 
5660 
5664 

5666 


40  J=l,20 

ISA{ J ,  1) .EQ.NMSU3(LM,1)  )  GC  TC  5650 

NUE 

6  0  I=J,20 

ISA( I+L, 1) .EQ.O)  GO  TO  5664 

5  5  M  =  l,3 

(  I  ,  N)=NMISA(I  +  1,M) 

NUE 

NUE 

6  8  M  = 1 , 3 
(I,M)=0 
NUE 


5670 


C 
C 
C 
C 
C 
C 
C 


IF  ENOUGH  C-130S  ARE  AVAILABLE  TO  COVER  REMAINING 
REQUIREMENTS  THIS  TIME  STEP  RETURN  -  OTHERWISE  SEE 
IF  THERE  IS  ANOTHER  PROSPECTIVE  SUB  ST  I T LTAbLE 
MISSION,  IF  SC,  TRY  IT,  IF  NET,  RETURN 

IF(NTPA  .GE.NTPR)  GO  TO  5710 

LN=LM-1 

IF(LM.EG.O)  GO  TO  5710 

GO  TO  5  160 


IS  ANOTHER  SUE- 
IF  NCT  RETURN  ■ 
ANETFEP  SU6- 
NCT  TRY  FOP 


5672 


5674 


C 
C 

c 
c 
c 
c 
c 


568G 


IF  WORKING  ON  MISSION  SEE  IF  THERE 
STITUTABLE  MISSION,  IF  SO,  TRY  IT, 
IF  WORKING  ON  CASE  SEE  IF  THERE  IS 
STITUTABLE  CASE,  IF  SO,  TRY  IT,  IF 
SUBSTITUTABLE  MISSIONS 

IF(NTYSUB.EQ.2)  GO  TO  5674 

LC=LC-1 

IF(LC.EQ.O)  GO  TO  5160 

GE  TO  5150 

LM=LM-1 

IF(LM.EG.O)  GO  TO  5710 

GC  TO  5160 

CCNTINUE 

MISSION  OR  CASE  EEING  EXAMINED  IS  NOT  WITHIN  RANGE 
CF  ANY  HELICOPTER  STATION  SO  CHANGE  ITS  MISSION 
OP  CASr  VPCTOR  TC  SHOW  IT  IS  NOT  SUBSTITUTABLE 
THFN  TRY  ANY  FURTHER  PROSPECTIVE  SUBSTITUT]      IF 
.   :XiST.      NCT,  RETU 
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5690  IF(NTYSU3.EQ,2)  GO  TO  5700 

NCASE(NCSUB(LC,1) , 5 ) =0 

LC=LC-L 

IF(LC.EC.O  )  GO  TO  5160 

G  C  10  5 1 5  0 
5700  NMISSNt NMSUB(LM,  I)  ,  5)  =  0 

LN=LM-1 

IF(LM.EG.O)  GO  TO  5710 

GO  TO  5  160 
571C  CONTINUE 

RETURN 

END 


16G 


c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 

c 
c 
c 
c 
c 


THE  KEY  CALLING  PARAMETERS  FCR  SUBROUT 
DICATE  THE  C-L30  TO  3E  UTILIZED  (NPANE 
TYPE  OF  ACTION  TO  BE  TAKEN  AS  FOLLOWS: 
DICATES  THE  C-130  IS  TO  BE  ASSIGNED  TC 
NISSN>0  INDICATES  THE  C-130  IS  TO  BE  A 
MISSION;  AND  NRTN>0  INDICATES  THE  C-13 
RETURNED  TO  ITS  HOME  STATION  FROM  ONE 

ONLY  ONE  OF  TFESE  INC 
ZERO  ON  ANY  CNE  PART1C 
ILL 


C-130  STATIONS 


BE 
TO 


GREATER  THAN 
SUBROUi INE  F 


C****  SUBROUTINE  FILL 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


ou  *"V  *^»  ■^* 

%A*     »*^  -.'-*  *X»  J*  <J^  «JL-  *,*-  t>r    -Xr     -'»  -Xr 
»!»  *f%    *f%    rf*    »J*  «-A  *f*    *|S  *-_«  ^  *>f^  M 


INE  FILL  IN- 
)  AND  THE 

NACE>0  IN- 
A  SAR  CASE; 
SSIGNED  TO  A 
0  IS  TO  BE 
CF  THE  OTHER 
ICATORS  MAY 
ULAR  VISIT 


THE  FUNCTION  OF  SUBROUTINE  FILL  IS  TC 
DICATED  USAGE  OF  THE  SPECIFIED  C-L30. 
OF  NACE  OR  NISSN  INDICATES  TFE  PARTICU 
MISSION  TO  BE  ACTED  ON  UNLESS  THE  PLAN 
BEING  RETURNED  TO  ITS  HOME  STATION.  I 
IS  ON  ANOTHER  CASE  THE  SUBROUTINE  DIVE 
THE  NEW  CASE.  IF  THE  C-130  CAN  NOT  GE 
CASE  WITH  AT  LEAST  ONE  HOUR  ON-SCENE  T 
TINE  SENDS  IT  TO  THE  C-130  STATION  CLC 
SCENE  FOR  FUEL.  IN  ANY  SITUATION  WHER 
ING  HOURS  ARE  INVOLVED  BECAUSE  A  C-130 
AVAILABLE  AT  THE  CLOSEST  C-130  STATICN 
TURN  TO  ITS  HOME  STATION  THE  SUBROUTIN 
AND  TALLIES  THE  EXTRA  FLYING  FCURS  INV 
ALL  SITUATIONS  THE  APPROPRIATE  C-130T 
CASE  VECTORS  ARE  ADJUSTED  TO  REFLECT  T 
TAKEN. 


PAKE  TH 
THE  VA 
LAR  CAS 
E  IS  SI 
F  THE  C 
RTS  IT 
T  TO  TH 
FE  SUBR 
SEST  TO 
E  EXTRA 
IS  NOT 
CR  MUS 
E  DETER 
CLVED. 
FISSION 
FE  ACT! 


E  IN- 

LUE 

E  CR 

MPLY 

-130 

TO 

p 

6  LI- 
THE 
FLY- 

T  RE- 
MINES 
IN 
AND 
ON 


LAC(3), 
CCt  16)  ,NC 
TA( 25,  12)  , 


COMMON/ INFO?/ I C, NS CTC , NC AS E ( 50  ,  17 ) , NCTS , K , 
1NDAYTI,NM,  ID, LOG (9) , N SPNST , NNSC TD  ,NM 1 SS N (  1 

COMMON/  INF03/NTYPE,NAREA,NSNA,NSCA,NSSA,NS 
lNHACT(2  0y6)  , NTPR , NPRT ( 3 )  , NT  PA , NM  IS  A (20 , 3 ) , 
2NCASA(  10,3),  IF,NPA(3) 

CCPMON/  INFCA/NRTN,  NISSN, NACE, NPANE, NPLANEt  15,  16) 

CCMM0N/INF06/JPRI  ,  JDECNCLOSE 

CCMMCN/ 1NF07/DIST, DISTR,XHRST 

NTRANS=0 


DETERMINE     IF    C-130     IS    TO    A)     GO    FROM    ON 
ANOTHER,     B)     GO    C.N     A    MISSION,     C)     TAKE    0 
STATION    FOR    A    CASE,    OR    D)     DIVERT    FRJ 
ANOTHER    -    THEN    GO    TO    APPROPRIATE 
ROUTINE 


E    STATION 
FF    FROM    A 
CNE    CASE    TC 
SECT  ICN    OF     SUB- 


TO 


IF(NRTN .GT.O)  GO  TO  5  170 
IF(NISSN.GT.O)  GO  TO  5150 
IF(NPLANE(NPANE,2 )  .EQ  .0)  GO 


TO    5100 


C-130     IS    BEING    DIVERTED    FROM    ONE    CASE 
CASE    -     IDENTIFY    CASE    DIVERTING    FROM 


TC    ANOTHER 


I=NCLOSE 


DETERMINE    WHETHER     C-130     IS 
FROM    OR    ON-SCENE    THE    CASE 
FROM 


ENROUTE     TO, 
IT     IS    BEING 


RETURNI NG 
DIVERTED 


5C5C 


IF(NPLANE(      v2) .EQ.7)  GO  TO 
IF(NPLA'      NE,2).EQ.5)  GO  TO  5060 
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c 
c 
c 
c 


ADJUST    CASE    VECTOR    OF    C AS E    BEING    DIVERTED    FROM    AS 
NECESSARY 


C 
C 
C 

c 


506C 


507C 


C 

c 

c 

c 

c 
c 
c 
c 
c 

tl 

c 


NCASE (I  ,17)=NCASE(  1,17  1  —  1 
NCASE( I , 11)=NCASE( I ,11)-1 

ADJUST    PLANE    VECTOR    RELATIVE    TC 
VERTED    ON 

KPLANEt  NPANEt2)=5 

■ N PL AN E(NPANE,4)=(DI ST/290. 0)+0. 5 
NPLANE( NPANE, 6)  =  NCASE (NACE,  16) 
NPLANE( NPANE , 8 ) =NC ASE ( NACE , 6 ) 

ADJUST    CASE    VECTOR    OF    CASE    TO    WHICH 
BEING    DIVERTED    TO    INDICATE     PLANE    IS 

NCASE(NACE,11)=NCASE(NACE,11)+1 


NEW     CASE    BEING    CI- 


TFE    C-130 
ASSIGNED 


IS 


C 

c 
c 
c 


IF  CAS^  DOES  NOT  HAVE  ENOUGH  AIRCRAFT  ASSIGNEC  DO 
NOT  CHANGE  ITS  TIME  FOR  NEXT  AIRCRAFT  DEPARTURE  - 
OTHERWISE,  DETERMINE  TIME  OF  NEXT  C-130  DEPARTURE 
REQUIREMENT  CONSIDERING  WHETHER  CASE  IS  CONTINUOUS 
ON-SCENE  RELIEF  TYPE  OR  NOT 

IF(NCASE(NACE, 11) . LT .NCASE ( NACE , 7 )  )  GO  TO  509C 
IF(NCASE(NACE,2)  .EC.l)  GO  TO  5080 
NCASE(NACE,9)=NCTS+30-NDAYTI 
GC  TO  5090 
50  80  NCASE (NACE ,9 )=NCTS  +  10-( ( D I STR/ 290  .0 ) *2 ) -NPL AN E 
KNPANE,  4)+C5 


509C 


C 
C 

c 
c 

c 

c 
c 
c 
c 
c 
c 
c 


UPDATE  NUMBER  OF 
AREA  AND  TOTAL  C- 

NPRT< NCASE (NACE, 6)  ) 
NTPR=NTPR-1 


C-130S  REQUIRED  IN 
130S  REQUIRED  THIS 


CASE 
TIKE 


C-130 
STEP 


=  NPPT(NCASE(NACE,6  )  )-l 


IF  CASE  HAS  AS  MANY  AIRCRAFT  ASSIGNED  AS  REQUIRED 
GO  TO  REMOVE  ITS  ACTION  VECTOR-  OTHERWISE  RETURN 


IF(NCASE(NACE,11  ) 
GO  TO  5310 


GE.NCASE(NACE,7  )  )  GO  TO  5180 


C-130  IS  TAKING  OFF  FROM  A 
DETERMINE  DISTANCE  TO  CASE 


STATION  TC  GO 
FRC^  STATICN 


CN  A  CASE 


5100  DIST  =  FL0AT(NCASE(NACE,1H-NPLANE(NPANE,9 )  )  ) 


IF  C-130 

THE  CASE, 

NOT ,  SEE  IF  IT  CAN 

ONE  HOUR  ON  SCENE, 

TION.   TALLY  EXTRA 

NOT  GO  DIRECTLY  TO 


IS  DEPARTING  FROM  THE  STATION 
NO  EXTRA  FLIGHT  HOURS  ARE 
GET  TO  SCENE 
IF  NOT,  SEND 
FLIGHT  HOURS 
SCENE 


CLOSEST 


TO 
INVCLVED.   IF 
AND  HAVE  AT  LEAST 
IT  TO  CLOSEST  STA- 
INVOLVEC  IF  IT  CAN 


C 

c 
c 
c 
c 

c 
c 


IF(NPLANE(NPANE,9)  . EQ . NC ASE (NAC E  ,6  )  )  GO  TC  5120 
D I STR= NCASE (NACE,  I  1+NC ASE( N AC E , 6  )  ) 
NTTT=(( DIST+DISTR)/290.0)+0.5 
IF(NTTT.GT.9)  GO  TO  5110 

XFRS= FLOAT (NCASE (NACE, 1 1+NP LANE ( NPANE , 9) ) -NCASE ( NAC E , 
11 1  +  NC ASE (NACE, 6)  )  ) /29  0.0 
XHRST=XHRST+XHRS 
GC  TO  5120 

C-130  CAN  NOT  GET  TO  SCENE  AND  HAVE  AT  LEAST  ONE 
HOUR  ON-SCENE  FROM  STATION  IT  IS  AT  SC  KLST  GO  TO 
STATION  CIQSEST  Tr>  CASE.   DETERMINE  DISTANCE  TC 
C! OSEST  STATION  AND  FLIGFT  TIME  CORRECTED  FOR  FLY- 


ING AIRWAYS  V! 


IRECT 
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5  110 


5115 


C 

c 
c 

c 
c. 
c 


5118 


5119 


5120 


C 

c 
c 
c 
c 
c 
c 


DISTG=FL0AT(LAC(NCASE(NACE,6) )- L AC ( NPLANE ( N PANC , 9 ) ) ) 
NTTG=(DISTG/290. 01*1.1975 


LOAD    PLANE 
CLOSEST    TO 


VECTOR    TO    INDICATE    GOING     TC     STATION 
CASE    ANC    TALLY     EXTRA    FLIGHT    FOURS 


NPLANEf.  NPANE, 2)= 8 

N  FL  ANE  (  N P A N F  ,  4  )  =  NCT S  +NTTG 

N PLANE ( NPANE , 8) =NCASE ( NACE , 6) 

NPLANE (NPANE, 10)=NCTS 

XH RS= (D  1ST G/290. 0  1*1 .1975 

XHRST=XHRST+XHRS 

DETERMINE    TIME    OF    NEXT     C-130     DEPARTURE     REQUIREMENT 
CONSIDERING    ARRIVAL    TIME    OF     C-130    AT    CLCSEST     STA- 
TION,    TIME    OF     DAY    AND    WHETHER    CASE     IS    CCNTINUOUS 
ON-SCENE    RELIEF    TYPE    OR    NOT 

IF(NCASE(NACE,2) .EQ.l )     GO    TO    5115 

NCASE(NACE,9)=NCTS+NTTG+1 

IF(NCASE(NACE,9) .GT.  16)    GO    TO    5115 

GC    TO    5119 

IF(NCASE(NACE,2).EQ.l)     GO    TO    5118 

NCASE(NACE,9)=30+NCTS-NDAYTI 

GC    TO    5119 

NCASE(NACE,9)=NCTS+1 


UPDATE 
C-130S 
STEP. 

TO    SEE 


C-130S    REQUIRED    IN    CASE    AREA    ANC    TOTAL 
REQUIRED    AND    AVAILABLE    FOR    CURRENT    TIME 


INITIAL IZE 
IF    FURTHER 


PLANE    TRANSFER     INDICATOR    AND    GO 
ACTION    REQUIRED    ON    SUBJECT     CASE 


NPRT  (NCASE(NACE,6)  } =NP RT ( NC ASE ( NAC E, 6 1  )-  1 

NTPR=NTPR-1 

NTPA-NTPA-1 

NT  PANS  =  1 

GC    TO    5180 


LOAD    PLANE    VECTOR 
AND    GOING    TO    CASE 


FOR    C-130 
SCENE 


DEPARTING    FROM    STATION 


NPLANE( NPANE, 21=5 

N PLANE ( NPANE ,4) =  NCTS+ ( DI ST/290 . 0  1 +0 . 5 

NPLANE( NPANE,6)=NCASE(NACEf 16) 

N PLANE ( NPANE,8)=NCASE(NACE,6) 

NPLANE (  NPANE ,10) =  NCTS 

ADJUST    CASE    VECTOR    TO     INDICATE    PLANE    ASSIGNED    AND 
DETERMINE    TIME     OF    NEXT    C-130    DEPARTURE     REQUIREMENT 
CONSIDERING    WHETHER    CASE    NEEDS    ANOTHER     PLANE     THIS 
TIME    STEP,     AND    WHETHER    CASE     IS    CONTINUOUS    ON-SCENE 
RELIEF     TYPE    OR    NOT 


C 
C 

c 
c 
c 
c 


NC ASE (NACE,  11 )=NCASE(NACE,ll)+l 
IF(NCASE(NACE, 11 ) . LT . NC ASE ( NAC E , 7  1 )     GO    TC     5140 
IF(NCASE(NACE,2) .EQ.l)     GO    TO    5130 
NCASEt  NACE ,9 ) =NCTS  +  30-NDAYT I 
GO    TO     5  140 
5130    NCASEt NACE, 9  )=NCTS+10-( (FLO  AT ( NC AS E ( NAC E ,  11+NCASE 
1(NACE,6) ))/2  90.0)*2.0)+0.5 


UPDATE  NUMBER  OF  C-130S  REQUIRED 
AREA,  NUMBER  OF  C-130S  AVAILABLE 
AIRCRAFT  DEPARTED  FROM  AND  TOTAL 
AND    AVAILABLE    THIS    TIME    STEP 


IN  CASE  C-130 
IN  C-130  AREA 
C-130S    REQUIRED 


5140 


NPRT (NC ASE (NACE, 6)  )  =NP RT( NC ASE ( NAC E , 6 ) )-l 

NTFR=NTPR-1 

NTPA=NTPA-1 

N PA (NPLANE( NPANE, 9) ) =NP A ( NPLANE ( NPANE , 9 ) )-l 

IF  MORE  C-130S  REQUIRED  FOR  SUBJECT  CASE  IN  CUR- 
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c 
c 
c 


c 
c 
c 
c 
c 
c 


RENT  TIME  STEP,  RETURN 
ACTICN  VECTOR 


OTHERWISE  GC  TC  ZERO  CASE 


IF(NCASE(NACE, IL ) .GE .NCASE ( NAC E , 7 ) )  GO  TO  5180 
GC  TO  5  310 

C-130  IS  BEING  SCNT  ON  A  MISSION.   IF  AIRCRAFT  IS 
DEPARTING  FROM  STATION  CLOSEST  TO  PICK  UP  POINT  GO 
TO  ADJUST  PLANE  AND  MISSION  VECTORS  -  CTFERWISE 
DETERMINE  AND  TALLY  EXTRA  FLYING  HOURS  REQUIRED 


5150 


TC  5160 
,6)  )- 


C 
C 

c 
c 

c 


5160 


C 
C 
C 
C 
C 
C 


C 
C 
C 

c 
c 


c 
c 
c 
c 
c 
c 


5170 


c 

c 
c 
c 


c 

c 
c 


5180 
519C 


IF(NPLANE(NPANE,9).EQ.NMISSN(NISSN,6))     GC 
XHRS=(FLOAT(NMISSN (NISSN,  1 1+MPL ANE ( NPANE 
NMISSNCNISSNill  +  NMISSN(NISSNf6 )  )  J/290. 0 )-2  .0 
IF(NPLANE(NPANE,  1  )  .  EQ  .NMI SSN ( NI SSN ,6 ) )     XHPS=XHRS/2 
XHRST=XHRST+XHRS 

ADJUST    MISSION    VECTOR    TO    INDICATE    AIRCRAFT     IS 
ASSIGNED    AND    ADJUST    PLANE    VECTOR    FOR    MISSION 
ASSIGNMENT 


UPDATE    C-130S     REQUIRED     IN    MISSION    PICK    UP    AREA, 
C-1.30S    AVAILABLE     IN    C-130    AREA    AIRCRAFT    DEPARTED 
FROM    AND    TOTAL    C-130S     REQUIREC    AND    AVAILABLE    THIS 
TIME    STEP 

NPRT(NMISSN(NISSN,6)  )  =  NPRT ( NMIS SN ( N'ISS N, 6 ) ) - 1 
NTPR=NTPR-1 

NTPA=NTPA-1 

NFA(NPL  ANE (NPANE, 9) )=NPA(NPLANE(KPANE,9))-1 

IF    THE    SUBJECT    MISSION    DOES    NOT    REQUIRE    ANYMORE 
C-130S,    GO    TO    ZERO    MISSION    ACTICN    VECTCR    -    OTHER- 
WISE   RETURN 


I  F(  (MM  I  SSN  (NISSN,  11  ) 
GO    TO    5  310 


GE.NMISSN(NISSN,7} )     GC    TO    5180 


C-130     IS    BEING    TRANSFERRED    FRCM    ANOTHER    C-130    STA- 
TION   TO    ITS    HOME     STATION.        DETERMINE     AND    TALLY 
EXTRA    FLIGHT    HOURS     CORRECTEC    FOR    FLYING    AIRWAYS, 
ADJUST    PLANE    VECTOR    AND    THEN    RETURN 

DIST=FLCAT(LAC(NPLANE(NPAME, 1) )-LAC ( NPL ANE ( NPANE , 9 ) ) ) 

IF(DIST.LT.O)     DIST  =  -(DIS"I) 

XFRS=(0IST/290.0)*l.  19  7  5 

XHRST=XHRST+XHRS 

NPLANE(  NPANE  ,2) =8 

NPLANE( NPANE,4)=NCTS+XHRS 

K PLANE ( NPANE,8)=NP LANE (NPANE, 1 ) 

NPLANE( NPANE ,10) =NCTS 

NPLANE( NPANE, 6)=0 

NFLANE( NPANE, 7)=0 

GO  TO  5310 

IF  C-130  WAS  ASSIGNED  TO  MISSION  GO  TC  DETERMINE 
IF  MISSION  REQUIRES  FURTHER  ACTION  THIS  TIME  STEP 

IF(MSSN.GT.O)  GO  TC  5245 

DO  5190  J=l,  10 

IF(NCASA(J,l ) .EQ.NACE)  GO  TO  5200 


■ 


IINE  IF  CASE  1 
REQUIRES  MORE  C-13  0S  THIS 


C-130  WAS 

If-E  STEP, 


ASSIGNED  x^ 
IF 


17  0 


c 

c 
f. 
c 


c 
c 
c 
c 
c 


c 
c 

c. 
c 


c 
c 
c 


-  OTHERWISF  ZERO  CASE  ACTION  VECTOR 

52CC  IF(NTRANS. EQ.l )  GO  TO  5204 

IF(NCASE(NCASA( J,  1)  ,  11)  .LT.NCASE (KCASA( J,  L)  ,7) 1  GO  TO 
15310 
GC  TO  5  2  08 
5204  IF(NCASE(NCASA( J,  1  )  ,  U)  +  l . LT . NC ASE ( NC AS A ( J,  1)  ,7)  )  GO 
1TC  5310 

NO  FURTHER  ACTION  REQUIRED  ON  SUBJECT  CASE  THIS 
TIME  STEP  SO  ZERO  ITS  ACTION  VECTOR  ANC  RETURN 

5208  DO  5220  I  =  J,  1.0 

IF(NCASA(I+1, 1) .EQ.O)  GO  TO  5230 

DO  5210  M=l,3 

NCASA( I  ,M)=NCASA( I  +  1,M  ) 
5210  CONTINUE 
522C  CONTINUE 
5  2  30  DC  52  40  M=L,3 

NCASA( I  ,M) =0 
524C  CONT INUF 

GC  TO  5310 

DETERMINE  IF  MISSION  THAT  THE  C-130  WAS  ASSIGNED 
TO  REQUIRES  MORE  C-130S,  IF  SO  RETURN  -  OTHERWISE 
ZERO  MISSION  ACTICN  VECTOR 

5245    CC    5250    J=l,20 

IF(NMISA( J ,1 1 .EQ. NISSN)     GO    TO    5260 
5250    CONTINUE 

5260     IF(NMISSN(NMISA( J,  1) , 11) .LT  .NM I SSN (NM I S A ( J ,  I)  , 71  1     GO 
1T0    5310 

NO    FURTHER    ACTICN    REQUIRED    ON    SUBJECT    MISSION    SO 
ZERO    ITS    ACTICN    VECTOR    AND    RETURN 

DC  5280  I=J,20 

IF(NMISA(I+1 ,1) . EQ.O)  GO  TO  5290 

DC  5270  M=l,3 

NNISAC I ,K)=NMISA( I+1,M) 
527C  CONTINUE 
52  80  CCNTINUE 
529C  DC  5300  M=l,3 

NMISA( I ,M)=0 
5300  CCNTINUE 


ZERO  KEY  INDICATORS  PRIOR  TO  DEPARTING  SUBROUTINE 


531 


MSSN---0 

NACE=0 

NRTN=0 

53 2 C  RETURN 
END 
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£ $  *  *  * 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

1 

2 

"2 


SUBROUTINE  PLANE  **** 


CALLING  PARAMETERS  FOR  SUBROUTINE  PLANE 


THE    KEY 

ARE     THE    C-130     STATION 

(NAREA)     AND    THE    C- L30 

CASE  OR  MISSION 

TO  ENTERING  THE 

LEAST  ONE  C-L3C 

STATION 


THE  C-L30  IS  TC  CCME  FROM 
STATION  AREA  IN  WHICH  THE 
PICK-UP  POINT  IS  LOCATED.   PRIOR 
SUBROUTINE  IT  IS  KNOWN  THAT  AT 
IS  AVAILABLE  AT  THE  SLBJECT 


THE  FUNCTION  OF  SUBROUTINE  PLANE  IS  TC  DETERMINE 
THE  C-130  AT  THE  SUBJECT  STATION  WHICH  IS  TO  BE 
ASSIGNED  TO  THE  CASE  OR    MISSION  IN  QUESTICN.   THE 
SUBROUTINE  FIRST  ATTEMPTS  TO  ASSIGN  A  FLAKE  FRCM 
THE  SU3JECT  STATION  WHOSE  HOfE  STATICN  IS  CLOSEST 
TO  THE  CASE  OR  MISSION  PICK  UP  POINT.   IF  THIS 
FAILS,  THE  SUBROUTINE  TAKES  THE  FIRST  AVAILABLE 
C-L30  AT  THE  STATICN  AND  DESIGNATES  IT  £S  THE  AIR- 
CRAFT TO  BE  ASSIGNED  TO  THE  CASE  OR  MISSION.   IF, 
DURING  THE  PROCESS,  A  C-130  IS  FOUND  TO  HAVE  A 
MECHANICAL  DISCREPANCY  ON  START  UP  (PREDETERMIN- 
ED), THE  SUBROUTINE  DOWNS  THE  PLANE  AND  DETERMINES 
THE  NUMBER  OF  HOURS  UNTIL  IT  IS  REPAIRED. 


C 

c 
c 
c 

c 


5000 


c 
c 
c 
c 
c 


5010 


c 
c 
c 
c 
c 

c 
c 
c 
c 


CCMMON/ INF01/TCP(3) , PCL(3), PCSC , PSC I , P S SC , P CSOU , PCNN , 
PCGULF,Z,CDFA(4) ,CDFB(3) ,CDFC,PRI(3),PHCLC1,PH0LD2, 
PSC,PPSC(3)  , ''HOLD,  P  ME  DIC,  PMSC(  3)  ,PPUP(  11)  ,  PSUBM, 
QNDK4)  ,QND2(6)  ,  QND3U5),  PT  AD,  T  S  PDF  {  5  J  ,  ALCi\,ALATN 
CCMMON/ INF02/IC,NSCTD,NCASE(50, 17)  , NCTS , K  ,  L AC ( 3 )  , 
NCAYTI,  NM,  ID,L0C(9)  ,  N  SPNST  ,  N\'  SCTD  ,  N'4  I  S  S  N  (  ICC,  16)  ,  NC 
CCMMON/  INF03/NTYPE  ,  N  AR  EA  ,  NS  i\A  ,  NS  C  A  ,  NSS  A  ,  NST  A  (  25  ,  1  2  )  , 
NHACT(20,6),NTPR,NPRT(3),NTPA,NMISA(20,3), 
NCASAilO,3  >,  IF,NPA(3) 

CCMMON/ INF04/NRTN, M  SS N , NAC E , NP ANE , NPLANE( 15, 16) 
COMMON/  INF05/IE,NAREAS,NPLUSE,NPI S 

DETERMINE  IF  THERE  IS  A  PLANE  AT  THE  SUBJECT  C-130 
STATION  WHOSE  HOME  STATION  IS  CLOSEST  TC  THE  CASE 
OR  MISSION  LOCATION 

DO  5060  J=1,NP1S 

IF(NPLANE(J,9) .EC. NAREA)  GO  TO  5000 

GO  TO  5060 

IF(NPLANE (J,  1)  .EQ.NAREAS)     GO    TO     5010 

GC    TO    5C60 

C-130  AT  SUBJECT  STATION  IS  FROM  STATICN  CLOSEST 
TO  THE  CASE  OR  MISSION  LOCATION  SO  SEE  IF  IT  IS 
ABLE  TO  GO  ON  CASE  OR  MISSION 

I F(NPLANE( J, 2) .EG. 3)  GO  TO  5020 
IF(NPLANE( J, 2) .EQ.O)  GO  TO  5050 

C-130  NOT  ABLE  TO  GO  ON  CASE  CR  MISSICN;  IT  IS 
EITHER  FLYING  CR  DOWN  SO  CHECK  CTHER  PLANES  AT 
STATION 

GO  TO  5C60 

THE  C-130  HAD  A  MAINTENANCE  DISCREPANCY  CN  START 


FI  .    long     IT.  hi! 


' 


■ 


<;t 


THE    PLANE    VECTOR    AND    THEN    CHECK    OTHER    C-130S    AT 
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5020 


50  3  C 

5040 


C 

c 
c 
c 


c 
c 
c 
c 
c 
c 


5050 
5060 


507C 


C 
C 
C 
C 
C 

C 

c 
c 
c 
c 
c 


508C 


509C 
510C 


c 
c 
c 
c 
c 


5110 

5120 
513C 


GO  TO  5040 


NTSD=2 
NTSD=4 

NTSD=3 

NTSD=24 

NTSD=72 


STATION 

1  F  =  T  F  #  K 

RX=0r5+FLQAT( IE)*Z 

DO  5030  M=l,5 

IF(RX .LE.TSPDF(M) ) 

CONTINUE 

I  F  (  y  .  E  Q  .  1 ) 

I  F  (  M .  E  Q  .  2  ) 

I F  ( M  .  E  Q  .  3 ) 

IF(M.EQ.4) 

IFCM.EQ.5) 

NPLANEt  J,4)=NCTS+NTSD 

NFLANEl J, 2  )=2 

GO  TO  5C60 

THE  C-130  IS  ABLE  TO  GO  ON  CASE  OR  MISSION  SO  DES- 
IGNATE THIS  AIRCRAFT  AS  THE  ONE  TO  GC  AND  RETURN 

NFLUSE--J 
GO  TO  5130 
CONTINUE 

UNABLE  TO  FIND  A  PLANE  AT  THE  SUBJECT  STATION 
WHOSE  HOME  STATION  IS  CLOSEST  TO  CASE  CR  MISSICN 
LOCATION  AND  IS  ABLE  TO  GO  SC  CHECK  ALL  PLANES  AT 
SUBJECT  STATION  AND  TAKE  FIRST  ONE  ABLE  TC  GO 

DC  5120  J=1,NPIS 

IF{NPLANE(J,9) .EQ.NAREA)  GO  TO  5070 
GC  TO  5120 

IF(NPLANE( J, 2) .EQ.3 )  GC  TO  5080 
IF(NPLANE( J, 2) .EQ.O)  GO  TO  5110 


THIS  C-130  IS  UNABLE  TO  GO  ON  CASE  OR  NISSION, 
IS  EITHER  FLYING  CR  DOWN  SO  CHECK  OTHER  PLANES 
STATION 


IT 
AT 


GO  TO  5  120 


THIS  C-130  HAD  A  MAINTENANCE  DISCREPANCY  CN  START 
UP  SO  FIND  OUT  HOW  LONG  IT  WILL  BE  DCWN,  ADJUST 
THE  PLANE  VECTOR  AND  THEN  CHECK  OTHER  C-130S  AT 
STATION 


IE=IE*K 

RX=0. 5+ FLO  AT ( IE)*Z 
DC  5090  M=l,5 
IF(RX.LE.TSPDF(M) ) 
CONTINUE 

1) 

2) 

3) 
,4) 

5) 
4 


GO  TO  5100 


IFtM.EQ 

I  F  (  M .  E  Q 
IF(M.EQ 
I  F  (  M  .  E  Q 

IFtM.EQ 
N ■PLANE  (  J, 


NTS  0=2 
NTSD=4 
NTSD=8 
NTSD=24 
NTSD=72 
)=NCTS+NTSD 


NPLANE( J,2)=2 
GC    TO    5120 

THIS  C-130  IS  ABLE  TO  GO  ON  CASE  OR  MISSION  SO 
DESIGNATE  THIS  AIRCRAFT  AS  THE  ONE  TC  GC  AND 
RETURN 

NPLUSE=J 

GC  TO  5  130 

CONTINUE 

CONTINUE 

RETURN 

END 
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"if-  ik  5^  ^C 

SUBROUTINE    ASSIGN  **** 

*  $  A  A 
*  *  A;  *  sje*  *  *;  *  *  *  *  **  #  A  *  *  *  A  sfc  *  *  *  A  sje  A  *  *  *  A  *  *  *  A  A  *  *  *  *  *  *  A  A  A  *  *  *  *  A  A  A  A 

THE  KEY  CALLING  PARAMETERS  FCR  SUBROUTINE  ASSIGN 
ARE  AN  INDICATOR  CF  THE  PRIORITY  CLASS  CF  CASES  CR 
MISSIONS  TO  BE  DEALT  WITH  (JPRI)  AND  AN  INDICATOR 
CF  WHETHER  TO  CCNSIDER  CASES  CR  MISSICNS  AND  THE 
LEVEL  OF  AIRCRAFT  ASSIGNMENT  TO  BE  ATTEMPTED  (i, 
50  PER  CENT,  OR  TCTAL)  FOP  EACH  CASE  CR  MISSION 
OF  THE  SPECIFIED  PRIORITY  (JCEC). 


THE 
ASS 
SPE 
ED 

ARE 
THE 
AND 
QUI 
THE 
CAS 
AIR 
ABL 
PRI 
ASS 
THE 
ED. 


DIMENSI 
CCMMON/ 
PCGULF, 
PSCPPS 
CNCK4) 
CCMMON/ 
NDAYTI, 
CCMMON/ 
NHACT( 2 
NCASAt L 
CCMMON/ 
COMMON/ 
CCMMGN/ 
CCMMGN/ 


FUNC 
IGN  C 
C  IF  IE 

AIRCR 

MADE 

CASE 

THEN 

RED  F 

Y  ARE 

E  OF 

CRAFT 

E,  AT 

ORITY 

IGNED 

PRIO 


TION 
-130S 
D  IN 
AFT  T 
WITH 
SCEN 
t  IF 
OR  PR 
SENT 
PRIOR 
ASSI 
TEMPI 
ONE 
AND 
RITY 


CF  S 

TO 
ORDE 

0  TH 
AIR 

ES  0 

C-13 

IORI 

FRO 

1  TY 
GNED 
S  AR 
CASE 
DIVE 
ONE 


UBROUT 
CASES 
R  TO  B 
E  LEVE 
CRAFT 
R  MISS 
OS  REM 
TY  ONE 
1  THE 
ONE  CA 

AND  T 
E  MADE 

AREA 
RT  A  C 
CASE  W 


INE 
OR  M 
RING 
L  SP 
AT  T 
ION 
AIN 

OR 
R  C- 
SES 
HERE 

TO 
WITH 
-130 
IT  HO 


ASSI 
ISSI 

TFE 
ECIF 
HE  C 
PICK 
AVAI 
TWC 
130 
b  h  I C 

ARE 
FIND 

MGR 

FRO 
UT  A 


GN  IS 
CNS  0 
IR  LE 
IED. 
LOSES 
UP  P 
LABLE 
CASES 
STAT  I 
H  DO 
NO  C 
OTHE 
E  THA 
M  SUC 
NY  A  I 


TO 
F  T 
VEL 

AS 
T  S 
CIN 

AN 

CR 
ONS 
NCT 
-13 
R  C 
N  C 
H  A 
RCR 


ATTEMP 
HE  PRIG 

CF  ASS 
SIGNMFM 
TAT1 
TS  FIRS 
C  ARE  R 

MISSIC 
.   IN  T 

HAVE  A 
OS' AVAI 
ASES  IN 
NE  AIRC 

CASE  T 
AFT  ASS 


T  TO 

RITY 

IGN- 

TS 

TC 

T 

E- 

NS 

HE 

NY 

L- 

THE 
RAFT 
0 
1  GN- 


CN  NU 

INFOL 
Z,CCP 
C(3I  , 
,QND2 
INF  02 
NM,  ID 
INFC3 
0,6), 
0,3), 
INFC4 
INF05 
INF06 
INF07 


R(3) 

/TCP (3) , PCL( 3)  ,PCSC ,  PSCI  ,  P S SC  ,  PCSCU, PCNN 
A(4),CCPB(3)fCDFC,PRl(3) , PHQLC  1  ,  PHOL D2 , 
PH0LD,PMED1C,PMSC(3 )  ,PPUP( L  L)  , PSUBM, 
(<  .  ) , QND3( 15),PTAD,TSPDF( 5), ALCN,ALATN 
/IC,NSCTD,NCASE(50,  1.7)  ,NCTS,  K,LAC(3), 
,L0C(9)  ,NSPNST,  NNSCTD  ,NMISSN(  ICC,  16)  ,  N'C 
/NTYPE,NAREA,NSNA,NSCA,NSSA,NSTA(25,12) , 
NTPR,NPRT(3)  ,  NT  PA , NM  I  S A ( 20 , 3  )  , 
IF,NPA(3) 

/NRTNTMSSN,NACE,NPANE,NPLANE(  15,  16) 
/IE,NAREAS,NPLUSE,NPIS 
/JPR  I,  JDECNCLOSE 
/DIST,DISTR,XHRST 


ZERO    TALLY    VECTORS     FOR    C-130S    REQUIRED     IM    THE 
THREE     AnEAS    FOR    CASE    OR    MISS1CN    PRIORITY    BEING 
EXAMINED 


NLR( 1) =0 
NUR(2)=0 
NUP(3)=0 


IF  EXAMINING  ANY 
MISSION  SECTION 


PRIORITY  OF  MISSION,  GC  TO 


5CC0 


IFUDEC.GT.3)    GO    TO    5260 

EXAMINING  CASES  OF  PARTICULAR  PRIORITY  AND  LEVEL 
OF  AIRCRAFT  ASSIGNMENT.  FIND  CASES  CF  THAT  PRI- 
ORITY   WHICH    RECUIRE    A    C-130    THIS    TIME     STEP 

DO    5050     1=1, 10 

IF(NCASA(  I  ,?)  .EQ.OJ     GO    TO    50(13 

IFlhCASAi I ,2) .GT. JPRI )     GO    TO    5060 
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5020 


c 
c 
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I 

c" 
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c 
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c 
c 
c 


c 
c 
c 
c 
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IF(NCASA( 1,2)  .EQ.JPRI  ) 
GC  TO  5050 


GO  TO  50 LC 


DETERMINE  WHAT  LEVEL  OF  AIRCRAFT  ASSIGNMENT  IS  BE- 
ING EXAMINED.   IF  CHECKING  FOR  50  PERCENT,  SKIP 
TO  50  PERCENT  SECTION 

)IC  IF(  JDEC.EQ.2 )  GO  TC  5020 

CHECKING  EITHER  TO  SEE  IF  CASE  HAS  AT  LEAST  ONE 
PLANE  OR  IF  IT  HAS  ALL  THE  PLANES  IT  FECUIRES.   IF 
CASE  "DOES  NOT  HAVE  ANY  PLANES  ASSIGNED,  GC  TC  SEF 
IF  ONE  CAN  BE  ASSIGNED  FPOM  TFE  STATION  CLOSEST  TO 
THE  SCFNE.   IF  CASE  HAS  AT  LEAST  ONE  PLANE  AND 
CHECKING  FOR  ONE  PLANE  ASSIGNED,  GO  TC  NFXT  CASF. 
IF  CHECKING  TO  GIVE  CASE  TOTAL  PLANES  REQUIRED  GO 
TO  SEE  IF  CAN  ASSIGN  REQUIRED  PLANES  FPCM  THE  STA- 
TION CLOSEST  TO  THE  SCENE 


IF(NCASE(NCASA( I 
IF(JDEC  .EQ.O }  GO 
GO  TO  5050 


,1)  ,11)  .EQ.O 
TO  5030 


GO  TC  5030 


CHECKING  FOR  CASES  HAVING  50  PERCENT  CF  AIRCRAFT 
REQUIREDc   IF  CASE  DOES  NOT  HAVE  50  PERCENT  SEE  IF 
ONE  CAN  BE  ASSIGNED  FROM  THE  STATION  CLCSEST  TC 
THE  SCENE.   OTHERWISE  EXAMINE  NEXT  CASE 


CECIDE=FLOAT(NCASE(NCASA( I , I) ,7) )/2.0 
IF(NCASE(NCASA( I,  1), 11). LE. EEC  IDE)  GO 
GC  TO  5050 


TO     5020 


IS 


CASE    MEETS    CRITERIA    FOR    PAVING    C-130    ASSIGNED 
(PRIORITY,     LEVEL     CF    ASSIGNMENT)     SO    SEE     IF    C-130 
AVAILABLE    AT    C-130    STATION    CLCSEST     TC    THE    CASE. 
IF    ONE    NOT     AVAILABLE    GO    TO    TALLY    REQUIREMENT. 

)20    IF(NPA(NCASA( 1,3)  )  .EQ.O)    GO    TO    5C4C 

PLANE  IS  AVAILABLE  AT  C-130  STATION  CLCSEST  TC  THE 
CASE  SO  INITIALIZE  CALLING  PARAMETERS  FCR  AREA  AND 
STATION  AND  CALL  SUBROUTINE  PLANE 


NAREA=NCASA( I,  3) 
NAREAS-NCASA( 1,3) 
CALL  PLANE 

INITIALIZE  CALLING  PARAMETERS  FCR  CASE  NUMBER 
C-130  TO  BE  USED  AND  CALL  SUBROUTINE  FILL 


AN 


NACE=NCASA(I 
NPANE=NPLUSE 
CALL  FILL 


1) 


5032 


IF  NC  MORE  C-130S  ARE  REQUIRED  THIS  TINE  STEP,  RE- 
TURN.  IF  NO  MORE  C-130S  ARE  AVAILABLF  GC  TO  MAKE 
DECISICN  ON  FURTHER  ACTICN.   IF  MORE  C-120S  ARE 
REQUIRED  AND  AVAILABLE,  LOOK  AT  NEXT  CASE 

IF(NTPR.EQ.O)  GO  TC  5700 
IF(NTPA.EQ.O)  GO  TO  5032 
GC  TO  5000 

MORE  C-130S  ARE  REQUIRED  BUT  NCNE  ARE  AVAILABLE. 
IF  CHECKING  FOR  ONE  PLANE  ASSIGNED  TO  EACH  PRI- 
ORITY ONE  CASE,  CONTINUE  -  CTPERWISE  RETURN 

IF( JPRI  .GT  .1 )  GO  TO  5700 
IF( JDEC .EQ.l )  GO  TC  5000 
GC  TO  5700 

NO  C-130S  ARE  AVAILABLE  AT  CLCSEST  STATION  TC  CASE 
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5045 
505C 


5060 
5070 


C 

c 
c 
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c 
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5080 


c 
c 
c 
c 


5090 


c 
c 
c 
c 
c 
c 
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5100 
5110 


C 
C 
C 
C 


IF  EXAMINING  PRIORITY  THREE  CASES,  WILL  NCT  BRING 
AIRCRAFT  FROM  ANOTHFR  STATION  S3  JUST  CONTINUE  - 
OTHERWISE,  TALLY  NUMBER  OF  AIRCRAFT  RfCLIRED  DE- 
PENDING ON  LEVEL  OF  ASSIGNMENT  BEING  EXAMINED 

IF( JOEC  .EQ.OJ  GO  TO  5045 
IF(JDEC  .EQ.-L )  GO  TO  5050 
NUR<NCASA(I,3))=NUR(NCASA(I,3))+1 
GO  TO  5C50 
NUR(NCASA( 1,3 
,NCASE(NCASA(  I 
CONTINUE 


)  )  =  NUR(NCASA{  I 
tl)  tli) 


3)  ) +NCASE(NCASA  (I , 1) , 7)- 


5120 

512C 


ALL  CASES  REQUIRING  ACTION  TFIS  TIME  STEP  HAVE 
BEEN  EXAMINED.   THOSE  OF  THE  SPECIFIED  PRIORITY 
WHICH  ARE  BELCW  THE  SPECIFIED  LEVEL  OF  ASSIGNMENT 
AND  FOR  WHICH  SUFFICIENT  C-130S  WERE  NCT  AVAILABLE 
AT  THE  CLOSEST  STATION  HAVE  BEEN  TALLIED.   SEE  IF 
THERE  ARE  ANY  CASES  TO  BE  ACTEC  ON  -  IF  NCT,  RE- 
TURN 


DC  5070  M=l,3 
IF(NUR( M) .GT.O) 
CONTINUE 
GC  TO  5700 


GO  TO  5080 


THERE  ARE  CASES  MEETING  ALL  CRITERIA  FCP  BEING 
ASSIGNED  AIRCRAFT.   TALLY  TOTAL  NUMBER  OF  C-130S 
REQUIREO  AND  SEE  IF  ANY  C-130S  ARE  AVAILABLE.   IF 
THERE  ARE  NOT  ANY  C-130S  AVAILABLE  AND  EXAMINING 
OTHER  THAN  PRIORITY  ONE  CASES  FOR  ONE  AIRCRAFT, 
RETURN  -  OTHERWISE  TRY  TO  DIVERT  A  C-130  CN  A  LCW- 
ER  PRIORITY  CASE.   IF  THERE  ARE  C-130S  AVAILABLE, 
CONTINUE 


NTUR=NUR(1 
IF(NTPA.GT 
IFUPP.  I  .GT 
IFUDEC.GT 
IF( JDEC  .EQ 
GC  TO  5  520 


)+NUR(2)+NUR(3) 
. 0)  GO  TO  5090 
.1)  GO  TO  5700 
.1 )  GO  TO  5700 
.0)  GO  TO  5700 


DETERMINE  C-L30  STATION  AREAS  WHERE  CASES  REQUIRE 
C-130S  AND  HANDLE  THE  REQUIREMENTS  BY  AREAS 


IF(NUR(  1) 
I  F  ( NU  R  (  2  ) 
IF(NUR(3) 


GT 
GT 

EQ 


0) 
0) 
0) 


GC 

GO 
GO 


TO  5140 
TO  5190 
TO  5700 


A  C-130  IS  REQUIRED  FOR  A  CASE  IN  THE  SOUTHERN 
AREA.   IF  A  C-130  IS  AVAILABLE  IN  THE  CENTRAL  AREA 
TAKE  IT,  OTHERWISE  TAKE  ONE  FROM  THE  NORTHERN  AREA 
INITIALIZE  CALLING  PARAMETERS  ACCORDINGLY  AND  CALL 
SUBROUTINE  PLANE 

IF(NPA(2 ) . EQ.O)  GO  TO  5  100 

NAREA=2 

GC  TO  5  110 

NAPEA=1 

NAREAS=3 

CALL  PLANE 

LOCATE  CASE  REQUIRING  THE  C-130,  INITIALIZE  CALL- 
ING PARAMETERS  AND  CALL  SUBROUTINE  FILL 


DC  5120  1=1,1 
IF(NCASA( 1,3) 
CONTINUE 

CE=NCASA(  I  , 
NPANF=NPLUSE 
CALL  FI LL 


EQ.3)  GO  TO  5130 
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5140 


515C 

5160 


C 

c 
c 
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517C 
5180 


C 

c 
c 

c 
c 
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c 
c 
c 
c 
c 
c 
c 
c 


5L^0 

520C 
5210 


5220 
523C 
5240 


IF  NO  FURTHER  C-130S  ARE  REQUIRED  THIS  TIME  STEP, 
RETURN  -  OTHERWISE  ADJUST  AREA  AND  TOTAL  C-120  RE- 
QUIREMENT TALLIES  AND  HANDLE  NEXT  CASE  REQUIRING 
C-120  IN  SOUTHERN  AREA 

IF(NTPR  .EQ.O)  GO  TO  57  00 
NUR(3)=NUR(3)-1 

NTUR=NTUR-1 

IF(NUR( 3) .GT.O)  GO  TO  5080 

GC  TO  5700 

A  C-130  IS  REQUIRED  FOR  A  CASE  IN  THE  NORTHERN 
AREA.   IF  A  C-130  IS  AVAILABLE  IN  THE  CENTRAL  AREA 
TAKE  IT,  OTHERWISE  TAKE  ONE  FRCM  THE  SOUTHERN  AREA 
INITIALIZE  CALLING  PARAMETERS  ACCORDINGLY  AND  CALL 
SUBROUTINE  PLANE 

IF (NPA( 2) . EQ.O)  GO  TO  5150 

NAREA=2 

GC  TO  5160 

NAREA=3 

NAREAS=1 

CALL  PLANE 

LOCATE  CASE  REQUIRING  THE  C-130,  INITIALIZE  CALL- 
ING PARAMETERS  AND  CALL  SUBPCUTINE  FILL 


.1 )  GO  TO  5180 


DC  5170  1=1,  10 

IF(NCASA(  I  ,3)  .Ei 

CONTINUE 

NACE  =  NCASA(  1,1  ) 

NPANE=NPLUSE 

CALL  FILL 

IF  NC  FURTHER  C-130S  ARE  REQUIRED  THIS  TIME  STEP, 
RETURN  -  OTHERWISE  ADJUST  AREA  AND  TCTAL  C-130  RE- 
QUIREMENT TALLIES  AND  GO  TO  FIND  THE  NEXT  CASE  RE- 
QUIRING A  C-130,  BY  AREA,  AND  HANDLE  IT 


IFCNTPR.EQ.O  ) 
NLR( 1) =NUR( 1) 
NTUR=NTUR-1 
IF(NTUR.GT.O  ) 
GO  TO  5700 


GO 
1 


TO  5700 


GO  TO  5080 


C 

c 
c 
c 


A  C-130  IS  REQUIRED  FOR  A  CASE  IN  THE  CENTRAL  AREA 
DETERMINE  WHICH  OTHER  C-130  STATION  AREA  THE  CASE 
IS  CLOSFST  TO  AND  TAKE  A  C-120  FROM  THAT  STATICN 
IF  AVAILABLE,  IF  NCT,  TAKE  PLANE  FROM  TFE  OTHER 
STATICN.   INITIALIZE  CALLING  PARAMETEFS  ACCORDING- 
LY AND  CALL  SUBROUTINE  PLANE 

DC  520C  1=1,10 

IF(NCASA(  1,3)  .EQ.2)  GO  TO  5210 
CONTINUE 

IF(NCASE(NCASA(  I ,  1)  , 12)  . LT . NCASE ( NC ASA(  I  ,  1)  ,14)  )  GO 
1TC  5230 
IF(NPA( 3). EQ.O)  GC  TO  5230 
NAREA=3 
GC  TO  5240 

IF(NPA(  1) .EQ.O)  GO  TO  5220 
NAREA=1 
NAREAS=2 
CALL  PLANE 

INITIALIZE  CALLING  PARAMETERS  WITH  C-13C  AND  CASE 
AND  CALL  SUBROUTINE  FILL 


NACE  =  NCASA(  I, 
NPANE=NPLUSE 
CALL  FILL 


1  ) 
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c 
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5260 


IF  NO  FURTHER  O130S  ARE  REQUIRED  TFIS  TIME  STEP, 
RETURN  -  OTHERWISE  ADJUST  AREA  AND  TCTAL  C-130 
REQUIREMENT  TALLIES  AND  GO  TO  FIND  THE  NEXT  CASE 
REQUIRING  A  C-L30,  BY  AREA,  AND  HANDLE  IT 

IF(NTPR  .EQ.O )  GO  TO  5700 

NUR(2) =NUR(2)-1 

NTUR=NTUR- L 

IF(NTUR  .GT  .0  )     GO    TO    5080 

GO  TO  5700 

DO  53L0  1=1,20 

EXAMINING  MISSIONS  OF  PARTICULAR  PRIORITY  AND  LEV- 
EL OF  AIRCRAFT  ASSIGNMENT.   FIND  MISSICNS  OF  THAT 
PRIORITY  WHICh  REQUIRE  A  C- 13C  THIS  TIME  STEP 


5270 


C 
C 
C 
C 
C 
C 


IF(NMISA(  I 
IF(NMISA(  I 
IF(NMISA(  I 
GC  TO  53L0 


,2)  .EQ 
,2) .GT 
,2)  .EQ 


0)  GO 
JPRI  ) 
J  PR  I  ) 


TO 

GO 
GO 


5320 
TO  5320 
TO  5280 


IF  MISSION  ALREADY  HAS  CNE  PLANE 
ING  FULL  ASSIGNMENT  THEN  EXAMINE 
REQUIRING  ACTION  THIS  TIME  STEP  ■ 
CONTINUE 


AND  NCT  ATTFMPT- 
THE  NEXT  MISSION 
■  OTHERWISE 


528C 


C 
C 
C 

c 
c 
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c 

I 

c' 

c 
c 
c 
c 
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I F(NMISSN(NMISA{  1  ,1  )  ,11  ) 
IF(JDEC .EQ.5)  GO  TO  5290 
GC  TO  5310 


EQ.O)  GC    TO  5290 


C 

c 

c 

c 


MISSION  MEETS  CRITERIA  FOR  HAVING  C-130  ASSIGNEE 
(PRIORITY,  LEVEL  OF  ASSIGNMENT)  SO  SEE  IF  C-13C  IS 
AVAILABLE  AT  C-130  STATION  CLCSEST  TC  TEE  MISSION 
PICK  UP  POINT.   IF  ONE  NOT  AVAILABLE  GC  TC  TALLY 
REQUIREMENT 

5290  IF(NPA{ NMISA(  1,3 )  )  .EQ.O)  GO  TO  53CC 

C-130  IS  AVAILABLE  AT  STATION  CLOSEST  TC  THE 
MISSION  PICK  UP  POINT  SO  INITIALIZE  CALLING  PARAM- 
ETERS FOR  AREA  AND  STATION  ANC  CALL  SUBROUTINE 
PLANE 

NAREA=NMISA(  1,3  ) 
NAREAS=NMI SA( 1,3) 
CALL  PLANE 

INITIALIZE  CALLING  PARAMETERS  FOR  MISSICN  NUMEEP 
AND  C-130  TO  BE  USED  ANC  CALL  SUBROUTINE  FILL 


C 

c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 


NISSN=NMISA(I , 1) 
NPANE=NPLUSE 
CALL  FI LL 


IF  NO  MORE 
TIME  STFP, 


C-130S 

RETURN 


ARE  REQUIRED  OR  AVAILABLE  THIS 
-  OTHERWISE  CHECK  NEXT  MISSION 


530C 


IF(NTPR.EQ.O)  GO  TO  5700 
IF(NTPA.EQ.O)  GO  TC  5700 
GC  TO  5270 

NO  C-130S  ARE  AVAILABLE  AT  CLCSEST  STATION  TO 
MISSION  PICK  UP  PCINT.   IF  EXAMINING  PRIORITY 
THREE  MISSIONS  WILL  NOT  BRING  AIRCRAFT  FRCM  ANOTH- 
ER STATION  SO  JUST  CONTINUE  -  OTHERWISE  TALLY 
NUMBER  OF  AIRCRAFT  REQUIRED  DEPENDING  ON  LEVEL  OF 
ASSIGNMENT  BEING  EXAMINED 

IF( JDFC .EQ.5)  GO  TO  5305 
IFUDEC  .EQ.10)  GO  TO  5310 

•  '  : ,3 ) ) =NU     [SA(  I  ,3 )  )  H 

GC  TO  53 10 
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5  30  5  NUR(NMISA(  1,3) )  =  NUR(NMISA(  I  ,  3 ) ) +  NM I SSN( NM  I  S A ( I , 

1NMISSN( KMISA{ I ,1  )  ,  11  ) 
5310  CONTINUE 


1)  ,7) 


5320 
5330 


C 
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5350 


5360 
5370 
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c 
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5380 
539C 


C 

c 
c 
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c 
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c 
c 
c 
c 

c 
c 

c 


5400 


ALL  MISSIONS  REQUIRING  ACTICK  TFIS  TIME  STEP  HAVE 
BEEN  EXAMINED.   THOSE  OF  THE  SPECIFIED  PRIORITY 
WHICH  ARE  BELOW  THE  SPECIFIED  LEVEL  OF  ASSIGNMENT 
AND  FOR  WHICH  SUFFICIENT  C-130S  WERE  NCT  AVAILABLE 
AT  THE  CLOSEST  STATIONS  HAVE  BEEN  TALLIED.   SEE  IF 
THERE  ARE  ANY  MISSIONS  TO  BE  ACTED  ON  -  IF  NOT, 
RETURN 


CO  5330  M=l,3 
IF(NUR( M) . GT.O) 
CONTINUE 
GC  TO  5700 


GO  TO  5340 


THERE  ARE  MISSIONS  MEETING  ALL  CRITERIA  FCR  BEING 
ASSIGNED  C-130S  FROM  STATIONS  WHICH  ARE  NOT  CLOS- 
EST TO  THE  PICK  UP  POINT.   TALLY  THE  TCTAL  NUMBER 
OF  C-130S  REQUIRED.   DETERMINE  C-130  STATION  AREAS 
WHERE  MISSIONS  REQUIRE  C-130S  AND  HANDLE  THE  RE- 
QUIREMENTS BY  AREAS 

NTUR=NUP(1)+NUR(2)+NUR(3) 

IF  (NUR(  1)  .GT.O)  GO  TO  5400 
IF(NUR(2) .GT .0)  GO  TO  545  0 
IF(NUR(3) . EQ.G)  GO  TO  5700 

A  C-130  IS  REQUIRED  FOR  A  MISSION  IN  THE  SOUTHERN 
AREA.   IF  A  C-130  IS  AVAILABLE  IN  THE  CENTRAL  AREA 
TAKE  IT,  OTHERWISE  TAKE  ONE  FROM  THE  NORTHERN  AREA 
INITIALIZE  CALLING  PARAMETERS  ACCORDINGLY  AND  CALL 
SUBROUTINE  PLANE 

IF(NPA( 2) . EQ.O)  GO  TO  5360 

NAREA=2 

GC  TO  5370 

NAREA=1 

NAREAS=3 

CALL  PLANE 

LOCATE  CASE  REQUIRING  THE  C-130,  INITIALIZE  CALL- 
ING PARAMETERS  AND  CALL  SUBROUTINE  FILL 


3)  GO  TO  5390 


DO  5380  1=1,20 
IF(NMISA( 1,3)  .EQ 
CONTINUE 
NISSN=NVISA( 1,1) 
NPANE=NPLUSE 
CALL  FI LL 

IF  NO  FURTHER  C-130S  ARE  AVAILABLE  OR  REQUIRED 
THIS  TIME  STEP,  RETURN  -  OTHERWISE  ADJLST  AREA 
C-130  TALLY  AND  HANDLE  NEXT  MISSION  REQUIRING 
C-130  IN  SOUTHERN  AREA 

IF(NTPR.EQ.O)  GO  TO  5700 
IF(NTPA.EQ.O)  GO  TO  5700 
NUP(3) =NUR(3)-1 
IF(NUR( 3) .GT.O)  GO  TO  5350 
GC  TO  5700 

A  C-130  IS  REQUIRED  FOR  A  MISSION  IN  THE  NORTHERN 
ARFA.   IF  A  C-130  IS  AVAILABLE  IN  THE  CENTRAL  AREA 
TAKE  IT,  OTHERWISE  TAKE  ONE  FROM  THE  SCUTFERN  £REA 
INITIALIZE  CALLING  PARAMETERS  ACCORDINGLY  AND  CALL 
SUBROUTINE  PLANE 

IF(NPA( 2J.EQ.0)  GO  TO  54  10 

:  ■   \--2 

GC  TO  5420 
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5410 
5420 


C 
C 

c 
c 


NAPEA=3 
NAREAS=1 
CALL  PLANE 


LOCATE  MISSION  REQUIRING  THE  C-L30,   INITIALIZE 
CALLING  PARAMETERS  AND  CALL  SUBROUTINE  FILL 


543C 

5440 


).  )  GO  TO  5440 


C 

c 

C 

c 
c 
c 

C 


DC  5430  1=1,20 
I F(NMISA(  I  ,3)  .EQ 
CONTINUE 
NISSN=NMISA( 1,1) 
NPANE=NPLUSE 
CALL  FILL 

IF  NC  FURTHER  C-1.30S  ARE  AVAILABLE  CR  RECUIREC 
THIS  TIME  STEP,  RETURN  -  OTHERWISE  ACJLST  ARFA 
TOTAL  C-130  REQUIREMENT  TALLIES  AND  GO  TO  FIND 
NEXT  MISSION  REQUIRING  A  C-130,  BY  AREA,  AND 
HANDLE  IT 


AND 


C 

c 

c. 
c 
c 
c 
c 
c 
c 


IF(NTPR.EQ.O)  GO 
IF(NTPA.EO.O)  GO 
NUP(1)=NUR( 1 )-l 
NTL'R  =  NTUR-1 
IF(NTUR.FQ.O)  GO 
IF  (NUR( 1)  .GT.O) 
GO  TO  5340 


TO 
TO 


5700 
5700 


TO  5700 
GO  TO  5400 


C 

c 
c 

c 


c 
c 
c 
c 
c 
c 
c 


5450  CC 
IF( 
CON 
IF( 
1T0 
IF( 
NAR 
GC 
1F( 
NAR 
NAR 
CAL 


5460 
54  7  0 


5430 
5490 
550C 


A  C-130  IS  RECUIREC  FOR  A  MISSICN  IN  TFE  CENTRAL 
AREA.   DETERMINE  WHICH  OTHER  C-130  STATICN  AREA 
THE  MISSION  PICK  UP  POINT  IS  CLOSEST  TO  AND  TAKE  A 
C-130  FROM  THAT  STATION  IF  AVAILABLE,  IF  NOT, 
TAKE  C-130  FROM  THE  OTHER  STATION.    INITIALIZE 
CALLING  PARAMETERS  ACCORDINGLY  AND  CALL  SUBROUTINE 
PLANE 

5460  1=1,20 

NMISA( 1  ,3)  .EQ.2)  GO  TO  5470 

TINUE 

NMISSN(NMISA< I  ,  1)  ,  12) .LT .NM I S SN (NCAS A (  I,  1)  T 14)  )  GC 

5490 

NPA(3).EQ.O)  GO  TO  5490 

EA=3   . 

TO  5  500 

NPA(  1  )  . EQ.O)  GO  TO  5480 

EA=1 

EAS=2 

L  PLANE 


INITIALIZE  CALLING  PARAMETERS  WITH  C-130 
MISSION  AND  CALL  SUBROUTINE  FILL 


AND 


NISSN=Nf ISA( I 
NPANE=NPLUSE 
CALL  FILL 


1) 


IF  NO  MORE  C-130S  ARE  AVAILABLE  OR  REQUIRED  THIS 
TIME  STEP,  RETURN  -  OTHERWISE  ADJUST  AREA  AND 
TOTAL  C-130  REQUIREMENT  TALLIES  AND  GC  TC  FIND  THE 
NEXT  MISSION  REQUIRING  A  C-120,  BY  AREA,  AND 
HANDLE  IT 


5510 


C 

c 
c 


IF(NTPR.EQ.O)  GO 
IF (NT  PA. EQ.O)  GO 
NUR(2)=NUR(2)-1 
NTUR=NTUR-1 
IF(NTUR.EQ.O)  GO 
IF(NUR( 2) .GT.O) 
GC  TO  5350 


TO  57C0 
TC  5700 


TO  5700 
GO  TO  5450 


THE'  "   '  ' 
ONE  CASES 


"   C-130S  '.'."  I  L  !  BLE  . 
WITHOUT  ANY  AIRCRAFT 


- 
ASSIGN 


t  OD  T  TV 
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c 
c 
c 
c 
c 
c 
c 


5520 


5530 


5540 
555C 


556C 


C 
C 

c 
c 

c, 


5570 


C 

c 
c 

c 
c 


c 
c 
c 


c 
c 

c 
c 
c 
c 


5530 

5590 
560C 


56LC 


C 

c 
c 
c 
c 
c 
c 


5620 


563C 
564C 


ATTEMPT    TO    DIVERT    A    C-L30    FRCP    A    LOWER     PRIORITY 
CASE    WITH    MORE    THAN    ONE    C-13C    ASSIGNED    BEGINNING 
WITH    PRIORITY    THREE    CASES     IN    THE    SUBJECT    CASE    AREA 
AND    WORKING    UP.  [NE    AREA    WHERE    C-L30    RE- 

QUIRED   AND    INDICATE    PRIORITY    THREE    CASES    TO    BE 
EXAMINED    FOR    DIVERTING    A    C-L30    FROM 

IF(NUR( 1 ) . EQ.O)     GO    TO    5530 

ND  =  1 

GC    TO    5550 

IF(NUR(2  ).E0.0)     GO    TO    5540 

NO  =  2 

GC    TO    5550 

NC=3 

NTYD=3 


DETERMINE     IF    THERE    ARE    ANY     CASES     IN     TFE 
C-I30    STATION    AREA    -    IF    NOT,     GC    TO    SEE 
IS     REQUIRED     IN    ANOTHER    AREA 

DC  5670  1=1,50 

IF(NCASE( 1,6 ) .EQ.O)  GO  TO  5675 
I F(NCASE( I ,6) .EQ.NC)  GO  TO  5570 
GC  TO  5670 


SUBJECT 
IF  A  DIVERT 


THERE  IS 
PRIORITY 
THE  AREA 


A  CASE  IN 
REQUIRED, 


IF(NCASE(  1,1  KEQ.NTYD) 
GC  TO  5670 


THE  AREA,  SEE  IF  IT  IS  OF  THE 
IF  NCT  LCCK  AT  OTHER  CASES  IN 


GO  TC  55 8 C 


CASE  IN  THE  AREA  IS  OF  THC  PRIORITY  REQUIRED  SO 
SEE  IF  IT  HAS  MORE  THAN  ONE  AIRCRAFT  ASSIGNED  - 
NOT,  LOOK  AT  OTHER  CASES  IN  TEE  AREA 


IF 


IF(NCASE( 1,11) .GT 
GC  TO  567C 


1  )  GO  TO  5590 


FIND  CASE  WHICH  NEEDS  THE  C-120 


CO  5600  M=l, 10 
IF (KG AS  A (M, 3)  .EQ 
CONTINUE 


ND)  GO  TO  5610 


DETERMINE  IF  THE  CASE  WHICH  FAS  MORE  TFAN  ONE 
CRAFT  ASSIGNED  HAS  A  C-130  ASSIGNED  ANC  IF  SO, 
WHICH  ONE.   IF  NOT,  LOOK  AT  OTHER  CASES  IN  THE 
AREA 


AIR- 


DO  5660  J=1,NPIS 
IF(NPLANE( J, 6) .EG 
GC  TO  5660 
NC=NCASA(M, 1) 


NCASEU,  16)  )  GC  TO  562C 


INITIALIZE  INDICATOR  FOR  CASE  LOCATICN  IN  NCASE 
VECTOR  ARRAY  OF  CASE  THAT  REQUIRES  AIRCRAFT  AND 
DETERMINE  APPROXIMATE  LOCATICN  OF  THE  C-130  CON- 
SIDERING WHETHER  IT  IS  GOING  TC,  RETURNING  FROM 
OR  CN-SCENE 


IF(NPLANE( J, 2) .EQ. 5)  GO  TO  5630 

IF(NPLANE(J, 2) .EQ.6)  GO  TO  5640 

LATP=FLCAT(NCASE( I,3)+LAC(NPLANE(J 

L 0NP=FLOAT(M CASE ( 1,4) J/2.0 

GC  TO  5650 

LATP=FLCAT( NCASE (I  ,3 )  +  LAC ( NPL AN E ( J 

LONP=FLOAT(NCASE( 1,4) )/2.0 

GC    TO    5650 

LATP=NCASE( I ,3) 

L 01        ■      \S  E  (  1 ,  4 ) 


8)  ) )/2.0 


9)  )  )/2.0 
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c 
c 
c 
c 
c 
c 
c 


5650 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 
c 
c 


DETERMINE  IF  THE  C-130  HAS  ENCUGF  FLIGHT  ENDURANCE 
REMAINING  TO  GET  TO  CASE,  BE  GN-SCENE  AT  LEAST  CNE 
HOUR  AND  RETURN  TC  C-130  STATION  CLOSEST  TO  THE 
CASE.   IF  SO  ARRANGE  TO  DIVERT  THE  AIRCRAFT 
IF  NOT  LOOK  FOR  ANOTHER  C-130  WITH  MCRE  FLIGHT 
TIME  AVAILABLE  C  N  SAME  CASE 

CIST^SCRT ( (FLOAT (NCASE(NG, 3 )-LAT P ) **2 ) + ( FLOAT( NCA SE 
1( NG,4)-L0NP)-r-*2) ) 
DISTR=FLOAT(NCASE (NG,  1 1+NC ASE ( NG , 6 ) J  ) 
NTTT=( ( D I ST+D 1ST R 1/290.0) +0.5 
NAVTS=10-(NCTS-NPLANE( J ,10) J 
IF( (NAVTS-NTTT)  .GE  .  1  )  GO  TO  5690 
CCNTINUE 
CCNTINUE 

UNABLE  TC  FIND  A  CASE  OF  THE  RIGHT  PPICRITY  IN  THE 
SUBJECT  AREA  WITH  MORE  THAN  CNE  AIRCRAFT  ASSIGNED 
AND  A  C-130  WITH  ENOUGH  FLIGHT  TIME  TO  DIVERT  TO 
OTHER  CASE.   IF  LCCKING  AT  PRIORITY  CNE  CASES  TO 
DIVERT  FROM  GO  TC  ANOTHER  AREA  TO  SEE  IF  C-130S 
ARE  REQUIRED  FOR  POTENTIAL  DIVERSION  THERE  - 
OTHERWISE  LOOK  AT  NEXT  HIGHER  PRIORITY  CASES  IN 
SUBJECT  AREA 

IF(f\'TYD.EQc  1)  GO  TC  568C 
NTYD=NT YD-1 
GC  TO  5560 


5660 
56  7  C 


568C 


C 
C 
C 

c 
c 
c 


5690 


c 

c 
c 
c 
c 
c 
c 
c 


5700 


UNABLE  TO 
JECT  AREA 
AREA,  Alt 
OTHERWISE 
AMI  NED  TO 


FIND  DIVERTABLE  C-130  FOR  CASE  IN  SUB- 
BEING  EXAMINEC.   IF  LOOKING  AT  SOUTHERN 
AREAS  HAVE  BEEN  COVERED  SO  RETURN  - 
LOOK  AT  NEXT  AREA  SOUTH  OF  LAST  AREA  EX- 
SEE  IF  REQUIREMENT  EXISTS  THERE  TO  CI- 


VERT  A  C-130 


IE (NO. EG 
NC=ND+1 
IF (NO. EC 
IF(ND.EC 


)     GO    TO    5700 


2) 
3) 


GO 
GO 


TO 
TO 


5530 
5540 


C-130     IS    TO    BE    DIVERTED    TO    ANOTHER    CASE     SO 
INITIALIZE    CALLING     PARAMETERS    WITH    C-130    TO    BE    DI- 
VERTED,    CASE     IT    IS    TO    BE    DIVERTED    TO    AND    CASE     IT 
IS    TO    BE    DIVERTED    FROM     AND    CALL    SUBROUTINE    FILL 

NPANE=J 

NACE=NCASA(M, 1) 
NCLOSE=I 
CALL  FILL 


ADJUST  AREA  AND  TOTAL 
IF  NO  MORE  C-130S  APE 


C-130  REQUIREMENT  TALLIES. 

REQUIRED  THIS  STEP,  RETURN 
OTHERWISE  DETERMINE  WHETHER  CURRENT  AREA  BEING 
EXAMINED  HAS  MCRE  PRIORITY  ONE  CASES  WITHOUT  AN 
AIRCRAFT,  IF  SO,  ATTEMPT  TO  DIVERT  FCR  SUBJECT 
CASES,  IF  NOT,  GC  TO  NEXT  AREA  TO  CHECK 

NUR(ND)=NUR(ND)-1 
NTUR=NTUR-1 

IF(NTUR.EQ.O)  GC  TO  57C0 

IF(NUR( ND)  .GT.O)  GO  TO  5560 

IF(NO. EG. 3  )  GO  TC  5700 

ND=ND+1 

IF(ND.EG.2)  GO  TO 

IF(ND. EC. 3)  GO  TO 

CONTINUE 

RETURN 

END 


5530 
5540 
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ABBREVIATED  LISTING 
OF 
SIMULATION  PROGRAM  NOMENCLATURE 


ALATN 
ALCN 
DIST 
D I S  T  G 

D I  S  T  R 

JCEC 


JPRI 


LAC 
(3) 


LATC 

LC 

LM 
LCNGC 

NACE 

NAREA 


NCASA 
(  10,3) 


MEAN  DISTANCE  NORTH  OF  MAINE  OF  HC-13C  SAR  CASES 
WHICH  OCCUR  NORTH  OF  MAINE 

MEAN  DISTANCE  FROM  COAST  OF  FC-130  SAR  CASES  IN 
THE  ATLANTIC 

DISTANCE  FROM  HC-130  STATION  OF  DEPARTURE  TO 
CASE 


DISTANCE  HC-130  MUST  TRAVEL  IN  TRANSF 
FROM  STATION  IT  IS  AT  TO  THE  STATICN 
CASE 


ERRING 
CLCSEST  TC 


-   DISTANCE  FRCM  CASE  TO  NEAREST  HC-L30  STATICN 


S  ARE  TO  BE 
IGNMENT 


INDICATOR  OF  WHETHER  CASES  OR  MISSION 
EXAMINED  IN  SUBROUTINE  ASSIGN  AND  ASS 
LEVEL  TO  BE  ATTEMPTED 
-1  =  CASE,  I  PLANE,  NO  OUT  OF  AREA  PLANE 

0  =  CASE,  FILL 

L  =  CASE,  L  PLANE 

2  =  CASE,  50  PERCENT 

4  =  MISSION,  1  PLANF 

5  =  MISSION,  FILL 

10  =  MISSION,  1  PLANE,  NO  OUT  OF  AREA  PLANE 

PRIORITY  OF  CASES  OR  MISSIONS  TO  BE  EXAMINED 
I K  SUBR0U1 INE  ASSIGN 

BASIC  CONSTANT  FOR  RANDOM  NUMBER  GENERATORS 

DISTANCE  IN  NAUTICAL  MILES  ALONG  SIMULATED 
ATLANTIC  COAST  LINE,  FROM  EASE  LINE,  CF  HC-130 
STATIONS 

1  =  NORTHERN  STATION 

2  =  CENTRAL  STATION 

3  =  SOUTHERN  STATION 

LATITUDE  OF  PROSPECTIVE  SUBSTITUTA B LE 
MISSION  (NM) 

PROSPECTIVE  SUBSTITUTABLE  CASE  COUNTE 

PROSPECTIVE  SUBSTITUTABLE  MISSION  CCU 

LCNGITUDE  DF  PROSPECTIVE  SUBSTITUTAEL 

MISSION  (NM) 

LOCATION  OF  CASE  IN  NCASE  VECTOR  ARRA 
HAVING  AN  HC-130  ASSIGNED  TC  IT 

INDICATOR  OF  HC-130  STATION  AREA  CF  C 

1  =  NORTHERN  AREA 

2  =  CENTRAL  AREA 

3  =  SOUTHERN  AREA 

ACCOUNTING  VECTOR  ARRAY  FCR  CASES  REG 
HC-130  DEPARTURE  DURING  CURRENT  TIME 

1  =  CASE  LOCATION  IN  NCASE  ARRAY 

2  =  PRIORITY 

3  =  CLOSES!     " 30  STATION 


CASE  OR 

R 

NTEP 

E  CASE  OR 

V  WHICH  IS 

CNCERN 


UIRING  AN 
STEP 


18  3 


NCASE 

(  5  C  ,  1 7  ) 


NCLCSE 


NCSUE 
(5,2) 


NCTS 

ND 

N  D  A  V  T  I 
NDOWTI 

NG 


NHACT 
(20,6) 


NISSN 
N  M  H  L  S  T 
NMISA 


ACC 
1 
2 


7 

3 

Q 

10 

11 

12 
13 
14 
15 
16 
17 


HUNT  ING 

=  PR  10 

=  CCNT 

1 

0 

=  DIST 

BASE 

=  DIST 

ATLA 

E 

W 

=  SUBS 

I 

0 

=  CLOS 
i 

2 

3 

=  U    OF 

=  TC7A 

=  TIME 

=  NOT 

=  NUMB 

=  OIST 

=  DIST 

=  DIST 

=  TIME 

=  CASE 

=  NUMB 


VECT 
RITY 
INUCU 

-  CC 

-  NO 
AN'. 

LINr: 
ANCT. 
NTIC 
AST  = 
EST  = 
TITUT 

-  SU 

-  NO 
EST  H 

-  NO 

-  CE 

-  SO 
HC-  I 

L  FLI 
TO  S 
USED 
ER  OF 
ANCE 
ANCE 
ANCE 
STEP 
NUMB 
ER  CF 


OR  ARRAY 

-  1,2,3 

S  CASE  OR 

N1 1 NUOUS 

T  CONTINUO 

OF  CASE  NORTH  OF  SIMULATED  COAST 

(NM) 
OF  CASE  EA 
COAST  LINE 


OP  ACTIVE  SAP  CASES 
NET 
IUS 


ST  OR  WEST  CF  SIMULATED 
AND  ITS  PROJECTION 


ABLE  CASE  OR 
BSTITUTAI 
T  SUBSTITUTE 
C-130  STATIC 
RTHERN  STAT  I 
NTRAL  STATIC 
UTHERN  STAT  I 
BOS  REQUIRED 
GhT  HOURS  RE 
END  NEXT  HC- 
-  SET  =  1 

AIRCRAFT 
FROM  NORTH 
FROM  CENTR 
FRCM  SCUTH 

THAT  CASE 
ER 

HC-130S  ON-SCEN 


NOT 

BLE 
N 

CN 

N 

CN 

GU.IRED  ON- SCENE 


ASSIGNED  TC  CASE 
ERN  hC-L30  STATION 
AL  HC-130  STATION 
«  HC-130  STATION 
CLCSES 


LOCATION 
WHICH  AN 
CASE 


IN  NCASE  VECTOR  ARRAY  OF  CASE  FROM 
HC-130  IS  BEING  DIVERTED  FOR  ANOTHER 


ACCOUNTING  VECTOR  ARPAY  FCR  PROSPECTIVE  SUE- 
STITUTABLE  CASES 

1  =  CASE  LOCATION  IN  NCASE  ARRAY 

2  =  PRIORITY 

3  =  HC-130  STATION  AREA  CASE  IS  IN 

TIME  STEP  CCUNTER 

AREA  THAT  IS  BEING  SCANNED  FOR  DIVERTING  HC-130S 
FRCM  CASES  TO  PRIORITY  ONE  CASE  WITHOUT  AN  AIR- 
CRAFT 

DAY/HOUR  CCUNTER 

TALLY  VECTOR  FOR  HC-130  DOWN  TIME  DUE  TO 
MAINTENANCE  DISCREPANCIES 

INDICATOR  OF  LOCATION  IN  NCASE  VECTOR  ARRAY  OF 
CASE  THAT  HC-130  IS  TO  BE  DIVERTED  TC 

HELICOPTER  ACTIVITY  ACCOUNTING  VECTOR  ARRAY 

1  =  TYPE  HELICOPTER 

3  -  HM-3F 
5  -  HH-5  2A 

2  =  STATION  HELICOPTER  IS  FROM  -  EY  NUMBER  IN 

STATION  ARPAY 

3  =  TIME  HELICOPTER  IS  TC  RETURN 

4  =  NUMBER  OF  CASE  HELICOPTER  IS  CN 

5  =  NUMBER  OF  MISSION  HELICOPTER  IS  CN 

6  =  TIME  DEPART  SCENE  OR  MISSION 

MISSION  LOCATION  WITHIN  NMISSN  VECTOR  ARRAY  TC 
WHICH  AN  HC-130  IS  BEING  ASSIGNED 

TALLY  VECTOR  FOR  MISSION  FLIGHT  HOtPS  NOT  FLOWN 


-   SAME  AS  NCASA  ONLY  FOR  MISS1 
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(20,3) 


NMI SSN 
(10  0,16) 


NMSLB 
(5,2) 

NNSCTO 


ACCOUNTING 

MISSIONS 

1  =  PRIORI 

2  =  NUMBER 

HELD  B 
GUT  BE 

3  =  D I S 

SIMULA 

4  =  01  STAN 

WEST  0 

ITS  PR 

EAS 

WES 

5  =  SUbSTI 

1  - 
0  - 

6  =  NEARES 

7  =  #  OF  H 

8  =  TOTAL 

9  =  TIME  S 

10  =  TIME  S 

11  =  NUMBER 

12  =  D  I  S  ; 

13  =  DIS1  AN 

14  =  DISTAN 

15  =  U    OF  T 

(OPERA 

16  =  MI  SSI C 


VECTOR  ARRAY  FOR  ACTIVE  NCN-SAR 


TY  - 
r»F 

I 

CE  0 
TED 
CE  0 
F  SI 
CJEC 
T  = 
T  = 
TUTA 
SUB 
NOT 
T  HO 
C-13 
M  I  S  S 
TFP 
TEP 
OF 
CE  F 
CE  F 
CE  F 
I  ME 
T  I  N  C 
N  NU 


3 

STEPS  WHICH  MISSION  CAN 
ELULEC  DEPARTURE  TIME  WITH- 
LLED 

SIGN  PICK  UP  PCIIST  NORTH 
EASE  LINE  (Nl«  I 


TIME 
D  SCH 
CANCE 
F  MIS 

COAST 

MISSION  PICK  UP  PCI  NT  FAST  OR 
MULATED  ATLANTIC  CCA  ST  LINE  AND 
TION 
+ 


BLE  M 
ST  ITU 

SUBS 
-130 
OS  RE 
ION  F 
HC-13 
M  I  S  S  I 
AIRCP 
ROM  N 
i  C 
ROM  S 
STEPS 

HOUR 
MBER 


ISSI 

TAbL 

TITU 

STAT 

GUIR 

LIGH 

0  IS 

ON  S 

AFT 

ORTH 

CUTH 
MIS 
S) 


Cf\ 
E 

TAB 
ICN 
ED 
T  F 
TC 
Che 

ASS 

ERN 

AL 

ERN 

SIC 


CR  NOT 
LE 


CURS' 

DEPART 
DULED  TC  CLOSE 
IGNED 

HC-130  STATION 
FC--130  STATION 

HC-130  STATION 
N  UNDERWAY 


SAKE  AS  NCSU3 
MISSIONS 


ONLY  FOR  PROSPECTIVE  SUBST I TUTA BLE 


NUMBER  OF  NON-SAR 
DURING  TIME  STEP 


MISSIONS  TO  BE  INITIATED 


NODSC   " 
NPANE 

NPIS 

NPLANE 
(  15,  L6) 


-  TALLY  VECTOR  f-Qrt\    NON-PEAK  RATE  DAY  SAP  CASES 

-  PLANE  LOCATION  IN  NPLANE  VECTOR  ARRAY  OF  HC-130 
BEING  ASSIGNED  TO  A  PARTICULAR  CASE  CP  MISSION 

-  TOTAL  NUMBER  OF  HC-130S  ALLOCATED  TC  STATIONS 
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NPRT      -   NUMBER  OF  AIRCRAFT  REQUIRED  IN  HC-1'C  AREA 
(3)  DURING  PARTICULAR  TIME  STEP 

L  =  NORTHERN  AR 

2  =  CENTRAL  AREA 

3  =  SOUTHERN  AREA 

NRNSC     -   TALLY  VECTOR  FOR  REGULAR  NON-SAR  MISSIONS 

NRNSCT    -   TIME  STEP  OF  NEXT  REGULAR  NCN-SAR  MSSICN  TAKF 
OFF  TIME  WITH  A  NEW  MISSION  TO  BE  STARTED 

NRONA     -   TALLY  VECTOR  FOR  RONS  AT  TEE  THREE  AIR  STATICN 
(3)  LOCATIONS 

NRONF     -   TALLY  VECTOR  FCR  RONS  AWAY  FROM  THE  TPREE  AIR 
(3 )         STATION  LOCATIONS 

NRTN      -   CALLING  PARAMETER  FOR  SUBROUTINE  FILL  TC  IN- 
DICATE AIRCRAFT  IS  TO  BE  RETURNED  TC  ITS  HOME 
AIR  STATION 

NSCA      -   SEE  LISTING  OF  REQUIRED  INPUTS,  CARC  18 

NSCT      -   TIME  STEP  OF  NEXT  SAR  CASE  CALL 

NSCTC     -   NUMBER  OF  SAR  CASE  CALLS  RECEIVED  DURING  TIME 
STEP 

NSHLST  -  TALLY  VECTOR  FOR  SAR  ON-SCENE  HOURS  NOT  FLOWN 

NSNA  -  SEE  LISTING  OF  REQUIRED  INPLTS,  CARC  18 

NSPL  -  TALLY  VECTOR  FOR  SPECIAL  NCN-SAR  MISSIONS 

NSPNST  -  TIME  OF  SPECIAL,  NON-SAR  MISSION  CALL 

NSSA  -  SEE  LISTING  CF  REQUIRED  INPUTS,  CARC  13 

NSSMSC  -  TALLY  VECTOR  FOR  PEAK  RATE  CAY  SAR  CASES 

NSTA      -   HELICOPTER  STATION  VECTOR  ARRAY.   SEE  LISTING  CI 
125,12)     REQUIRED  INPUTS,  CARD  L9 

NTOS      -   NUMBER  OF  TIME  STEPS  HELICOPTER  HAS  AVAILABLE 
ON-SCENE 

NTPA  -       TOTAL    NUMBER    OF    HC-130S    AVAILABLE    CURING    A 

SPECIFIC    TIME    STEP 

NTPR      -   TOTAL'  NUMBER  OF  AIRCRAFT  PECUIRED  CURING  A 
SPECIFIC  TIME  STEP 

NTPAN     -   INDICATOR  OF  WHETHER  HC-L3C  IS  BEING  TRANSFERRED 
TC  NEAREST  STATION  FOP  CASE  OR  NOT 
1  =  BEING  TRANSFERRED 
0  =  NOT  BEING  TRANSFERRED 

NTTG      -   FLIGHT  HOURS  FROM  ONE  STATICN  TC  TFE  CTFER 
CGRRECTED  FOR  NON-DIRECT  PATH 

NTTR      -   TOTAL  FLIGHT  HOURS  REQUIRED  IF  HC-13C  IS  TH  CO 
DIRECTUY  10  SCENE  AND  RETURN  TO  STATICN  CLCSEST 
TC  CASE 

NTUR      -   TALLY  OF  TOTAL  NUMBER  OF  HC-130S  RECLIRED  EY_ 
CASES  OR  MISSIONS  OF  THE  SPECIFIED  PRIORITY  10 
BE  BROUGHT  UP  TO  SPECIFIED  ASSIGNMENT  LEVEL 
IN  SUBROUTINE  ASSIGN 

NTYPF     -   PRIORITY  OF  CASES  BEING  EX   [I  ED  FCR  POSSIBL, 
REMOVi  L   F  HC-130  T  CASE 
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